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The  authors  wish  to  thank  the  contract  monitor,  Ming  Wong 
, (RADC/ETE I ),  for  his  many  helpful  suggestions  and  guidance  during 
this  contract.  In  our  electron  density  processing  program,  we 
have  incorporated  his  scheme  of  representation  as  follows. 

The  electron  density  varies  with  height  as  a sequence  of  sine- 
square  segments,  each  with  phase  angles  from  0 to  90,  or  from 
90  to  180  degrees.  The  maximum  and  minimum  electron  density  in 
each  segment,  as  well  as  the  heights  of  the  maximum  and  minimum, 
all  vary  with  colatitude  in  sine-square  segments.  Each  of  these 
segments  has  an  amplitude  and  end  points  which  vary  with  longitude 
in  additive  sine-square  segments. 


He  also  suggested  that  for  simplified  ray  tracing,  the  vertical 
plane  containing  the  propagation  direction  be  appropriately 
subdivided  into  cells  bounded  by  constant-height  and  constant- 
distance  contours.  Within  each  cell,  electron  density  varies 
only  with  height  and  as  a sequence  of  two  quasi-parabolic 
functions,  each  of  which  has  vanishing  height  derivative  at 
either  the  bottom  or  top  boundary  of  the  cell. 
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Chapter  I. 


INTRODUCTION 


This  final  report  both  summarizes  work  which  was  accomplished 
under  contract  F19628-76-0029,  and  provides  a condensed  source  of 
information  about  the  use  of  the  various  software  packages  which 
were  developed  for  various  ray  tracing  applications.  The  first  part 
of  the  report  consists  of  4 chapters  which  discuss  and  describe  in  a 
logical  sequence  various  aspects  of  the  "ray  trace  system"  as  it  was 
developed  under  this  contract.  The  second  part  of  the  report  is  a 
collection  of  program  "user's  guides".  These  guides,  which  are 
frequently  referred  to  in  Part  I,  provide  a concise  description  of 
what  the  program  or  subroutine  does  including  a brief  algorithmic 
description  of  the  subroutine.  It  also  is  a convenient  source  of 
information  on  how  to  use  the  particular  subroutine. 

First  the  objectives  of  the  contract: 

a)  Develop  an  electron  density  preprocessing  program  which  accepts 
a combination  of  sine-square  profiles  and  hand  drawn  contours 
and  which  permits  variations  ofdensity  with  colatitude  and 
longitude . 

b)  Develop  a program  for  transforming  electron  density  data  and 
profiles  in  geographic  coordinates,  earth-centered  dipolar 
coordinates,  or  accurate  geomagnetic  coordinates. 

c)  Develop  a technique  for  minimizing  the  number  of  rays  which 
must  be  traced  to  acquire  all  significant  propagation  effects 
of  a particular  ionospheric  model. 

d)  Automate  the  generation  of  swept-frequency  traces  of  minimum 
group  path  from  systematically  varying  electron  density  dis- 
tributions and  then  determine  trial  electron  density  distrib- 
utions given  experimentally  observed  backscatter-radar 
ionograms . 

e)  Develop  a technique  for  handling  large  electron  density  data 
arrays  without  exceeding  reasonable  core  memory  requirements 
for  ray-trace  execution. 

f)  Develop  techniques  for  determining  radio  signal  strength  by 
computing  ray  density,  ionospheric  radiowave  absorption,  and 
backscattering  by  the  earth's  surface  and  geomagnetic  field- 
aligned  irregularities;  and  for  suitably  displaying  this  information. 
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g)  Develop  a technique  for  extracting  and  displaying  key  para- 
meters in  the  ray-trace  computations. 

h)  Provide  a system  of  documentation  for  the  above  efforts. 

i)  Optimize  the  ray-trace  program  for  finding  minimum  group 
path  rays  vs  frequency  for  a specified  pair  of  neighboring 
take-off  azimuths. 

j)  Develop  a method  for  packing  and  unpacking  sample  electron 
density  values  within  the  ray  trace  system  in  order  to 
permit  ray  tracing  to  be  done  with  less  external  mass  storage. 

These  object ives fall  naturally  into  4 categories. 

1)  Generation  of  the  model  medium  through  which  rays  are  to  be 
traced  (includes  electron  density,  collision  frequency,  earth's 
magnetic  field). 

2)  Ray  tracing  (including  development  of  techniques  for  optimizing 
ray  tracing  according  to  specific  objectives) 

3)  Information  extraction  (including  "synthesis"  of  various  systems 
displays ) 

4)  "Inversion"  of  ray  tracing  i.e.  given  some  of  the  extracted 
information  (e.g.  ionograms)  develop  a best  fit  model.  For  lack 
of  a better  term  this  is  called  analysis. 

Looking  at  the  list  of  objectives,  items  a,  b,  e and  j fall  into 
category  1;  items  c,  g (partially),  and  i fall  into  category  2;  items  d 
(1st  part),  f and  g (partially)  fall  into  category  3>  item  d (2nd  part) 
falls  into  category  4.  Item  h is  essentially  accomplished  through  the 
user's  guides  which  constitute  Part  II  of  this  report. 

Categories  1,  2,  and  3 combined  achieve  the  aim  of  synthesizing 
backscatter  ionograms . The  general  approach  used  to  achieve  this 
objective  is  illustrated  in  Figure  1.1.  Numbers  given  in  parentheses 
refer  to  the  section  numbers  of  detailed  descriptions.  The  sequence 
of  steps  follows: 

a.  Graphs  of  the  critical  frequency  and  height  of  the  valleys 
and  peaks  of  the  vertical  profiles  are  presented  as  a 
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function  of  accurate  geomagnetic  colatitude  and  longitude. 

b.  These  curves  are  then  introduced  into  an  electron  density 
preprocessing  program  which  finds  plasma  frequency  as  a 
function  of  height,  dipolar  colatitude,  and  dipolar  longitude 
along  specified  grid  points. 

c.  This  information  is  then  put  on  mass  storage  files  to  be  used 
as  input  to  the  ray  tracing  program. 

d.  The  ray  tracing  program  is  the  197^-  version  of  the  Jones  and 
Stephenson  program  with  modifications  for  the  special  applica- 
tion. The  program  produces  an  output  tape  similar  in  function 
to  the  "raysets"  developed  by  Croft.  This  output  tape  is  then 
used  in  a variety  of  plotting  programs. 

e.  Leading  edge  ionograms  are  produced  from  this  tape  and  points 
along  the  leading  edge  are  then  used  to  calculate  more  rays 
to  study  the  power  along  the  leading  edge. 

f.  Power  calculations  are  made  at  coarser  intervals  for  all 
available  rays  in  the  rayset  and  an  amplitude  modulated 
■'onc^ram  is  produced. 

g.  Otht,_  display  programs  available  for  use  with  the  ray  trace 
output  tape  include  most  of  the  display  variations  produced  by 
Stephenson  and  Georges  (1969)*  The  most  useful  of  these  in 
dealing  with  our  problem  is  the  display  of  azimuth  deviation 
versus  elevation  angle  for  fixed  azimuth  and  frequency.  All 
displays  are  available  for  both  earth  landing  points  and  points 
where  the  ray  is  perpendicular  to  the  magnetic  field  lines. 

The  following  chapters  reflect  or  contain  information  according 
to  this  classification  of  the  objectives  and  work  into  four  categories. 
It  should  be  noted  here  that  the  objectives  on  the  whole  are  very 
broad  in  scope,  running  as  they  do  from  ray  trace  optimization  to  the 
inversion  or  "analysis"  problem,  a very  difficult  problem  indeed  even 
when  looked  at  from  a fairly  restrictive  view  point  (e.g.  minimum  group 
path  length  vs.  frequency  data). 

It  also  should  be  pointed  out  in  the  introduction  that  due  to 
exigencies  that  arose  during  the  contract,  emphasis  was  shifted  into 
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certain  areas  (in  particular  backscatter  calculation  and  display) 
which  meant  that  it  was  not  possible  to  give  the  objectives  equal 
weight  "according  to  need".  Thus,  for  example,  ray  trace  optimization 
was  done  in  only  a restricted  manner  (e.g.  to  obtain  minimum  group 
path  power  information).  Some  of  the  results  in  software  development 
are  not  reflected  ( or  are  only  mentioned  in  passing)  by  the  discussion 
of  the  following  chapters.  Nonetheless  Part  II  represents  a fairly 
comprehensive  summary  of  all  software  which  exists  to  date  which  was 
developed  at  least  partially  under  the  auspices  of  this  contract.  Most 
of  the  developed  subroutines  are  quite  specialized  to  the  ray  trace 
environment  but  some,  which  are  so  noted  by  category,  are  useful  in  a 
more  general  environment. 


Chapter  II 


IONOSPHERIC  AND  ATMOSPHERIC  DETERMINATION 


To  achieve  the  purpose  of  predicting  the  electron  density  from 
given  backscatter  ionograms,  it  is  necessary  to  construct  backscatter 
ionograms  from  controlled,  but  complex  ionospheres.  Changes  due  to 
shifts  in  layer  heights,  thicknesses  and  widths  must  be  identifiable 
in  constructed  backscatter  ionograms  to  enable  one  to  identify  the 
best  ionogram  characteristics  for  measuring  these  shifts.  For  the 
purposes  of  the  absorption  calculation,  however,  it  is  necessary  only 
to  know  within  a few  decibels  what  the  absorption  level  is.  For  this 
reason  established  global  models  of  atmospheric  characteristics  are 
used . 

2.1  Ionospheric  Pre-processing  program 

An  ionospheric  pre-processing  program  was  developed  which  would 
allow  for  a flexible  but  convenient  method  of  specifying  a fairly 
complex  plasma  frequency  distribution  in  three  dimensions.  Vertical 
profiles  are  composed  of  up  to  five  sine-squared  segments.  Variations 
in  latitude  and  longitude  are  also  sine-squared  in  nature.  Once  a 
model  is  established  it  can  be  further  varied  by  additive  or 
multiplicative  sine-squared  perturbations.  Some  examplesof  vertical 
and  horizontal  plasma  frequency  variations  produced  by  the  preprocessing 
program  which  is  called  S2PPR  are  given  in  Figures  2.1  to  2.4.  In  the 
examples  given,  the  model  was  specified  in  accurate  geomagnetic 
coordinates,  but  they  can  also  be  given  in  geographic  or  dipolar 
geomagnetic  coordinates.  The  use  of  the  sine-squared  layers  was  at 
the  suggestion  of  the  contract  monitor,  Wong  (1975).  T^e  Pr°grara 
S2PPR  is  based  on  modifications  to  program  SM0D2  which  was  written 
by  Arcon  Inc . 

Improvements  to  the  pre-processing  procedures  which  are  incorporated 
in  S2PPR  include  more  sine-squared  layers  in  a vertical  profile, 
longitudinal  variations,  variations  in  the  height  increment  of  the 
plasma  frequency  output  so  that  finer  steps  may  be  used  in  the 
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Figure  2.2  Vertical  Plasma  Frequency  Profile  at  25°  Dipolar  Colatitude 
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E-region,  and  sine-squared  variations  in  the  horizontal  gradients  as 
opposed  to  quadratic  variations.  The  sine-squared  variations  give 
the  advantage  that  they  provide  a smooth  transition  between  any  two 
points  and  are  constrained  so  that  the  value  is  always  somewhere 
between  the  two  points.  This  enables  the  user  to  specify  a smooth 
ionosphere  with  far  fewer  input  points.  In  addition  additive  and 
multiplicative  variations  were  added  to  give  increased  flexibility 
in  determing  models.  Detail  specifications  on  program  S2PPR  are 
given  in  Part  II,  PML  1 36 . 

2.1.1  Output  from  S2PPR  without  Word  Packing 

The  standard  output  from  program  S2PPR  is  blocks  of  plasma 
frequency  values  in  mass  storage  data  blocks  which  can  be  used  by 
the  ray  tracing  program  three  blocks  at  a time.  This  offers  the 
advantage  that  large  plasma  frequency  arrays  may  be  used  to  specify 
the  plasma  frequency  model  without  being  limited  by  core  storage. 

Finer  increments  in  colatitude  and  longitude  can  then  be  used  in 
specifying  the  plasma  frequency  more  accurately.  This  is  particularly 
important  given  the  sharp  gradients  which  can  be  encountered  in  the 
polar  ionosphere.  Tests  were  made  to  see  what  effect  this  had  on  the 
ray  trace  run  time.  It  was  found  the  run  time  was  lengthened  by  the 
procedure  of  reading  new  data  bloctemany  times  during  the  computation 
of  a ray.  Speed  reduction  was  approximately  33° /°  • (Run  time  means 
CPU  t ime . ) 

2.1.2  Word  packing  and  unpacking 

In  order  to  reduce  the  mass  storage  required  by  large  ionospheres, 
the  arra)«of  the  ionosphere  model  are  packed  four  elements  to  one 

computer  word.  The  subroutine  FPACKU  carries  out  the  algorithm 
which  can  be  described  as  follows: 

Given  four  array  elements 


^ + l,k) 

x2  = £(i> ^ + 2’k ) 

x,  = f(i,^j  + 3,k) 

% = + Sk)  , 
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1 

I 

gr  I 


let  be  the  integer  obtained  by  multiplying  x^  , i = 1,2, 3, 4, 
by  1000.  and  by  rounding: 

x^  = integral  part  o f (1000  xt  + .5), 
and  let  y ^ be  the  integer 

yl  = *1  y2  ~ *2  ~ *1  y3  = *3  ' *2  y4  = *4  ‘ *3 

It  is  assumed  that 

0 < xL  < 32.768  0 < y < 32768 

|xt  - xi_1|  < 16.384  |yj  < 16384  (i  = 2,3,4). 

Let 


zi  = yr 


'■ . = y.,  if  y.  > 0 
1 J 1’  J 1 — 


and 


z i = y i + 16384  if  y.  < 0 (i  = 2,3,4) 

The  can  be  representedwith  15  bits  and  stored  as 


21*5  + ,, 


~30 

2 + z. 


1 2 *-  ‘ “3 

in  one  60-bit  computer  word. 


15 

2 + Zi 


(Observe  that  the  assumptions  0 < x^  < 65*536  and  |x  -x^_jJ  ^ ^ 


024 


allow  five  elements  to  be  stored 


in  one  word  using  the  formula 


44  33  22  11 

2 + z2  • 2 + z,  2 + z4  2 + zr 


.) 


The  ray  tracing  program  which  uses  the  ionosphere  calls  subroutine 
FUNP4  to  reverse  the  packing  process  in  a straight  forward  manner. 

Notice  that,  since  the  x^  and  not  their  differences  are  rounded,  the 
unpacking  algorithm  yields  the  actual  values  x^  and  hence  ultimately 
values  of  the  x.  rounded  in  the  third  decimal  position  (e.g.  the 
original  12. 34567  is  given  back  as  12.346). 

It  is  not  expected  that  modifications  in  the  ionosphere  of  less 
than  .0005  will  have  detectable  effects  on  the  ray  tracing,  (if  needed, 
four  decimal  places  could  be  stored  by  multiplying  x^  by  1000 

to  obtain  x^  ; and  assume  e.g.  0 < x^  < 26.2l44and  |X^“X£_]J  ^ .8192  .) 
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The  reduction  in  external  storage  achieved  by  the  procedure 
just  described  implies  also  a reduction  in  transfer  time  from  disk 
to  internal  storage  and  hence  a reduction  in  the  run  time  of  the 
ray  tracing  program.  On  the  other  hand,  the  unpacking  does  need  time. 
There  are  two  possible  strategies.  The  whole  section 

of  compacted  ionosphere  which  is  in  core  can  be  unpacked,  or  only  those 
few  elements  needed  for  interpolation  can  be  unpacked  as  required.  A firs 
analysis  seems  to  indicate  that  the  second  strategy  is  preferable. 

It  has  also  the  advantage  of  reducing  core  requirement. 

The  modification  to  the  ray-tracing  program  of  unpacking  only 
those  elements  needed  for  interpolation  proved  to  be  well  worth  the 
effort  by  cost  comparison  runs.  Rays  were  traced  with 

Frequency  of  5 MHz, 

Azimuth  of  0°  and 

000 

Elevations  from  0 to  30  at  1 intervals. 

The  accuracy  of  the  output  was  wd.1  within  required  tolerances. 

Most  values  printed  were  exactly  the  same.  The  maximum  range 
difference  occurred  at  22°  elevation  where  "ground  reference"  of  the 
original  run  was  at  1611 .08  KM  and  that  of  the  modified  program 
with  local  unpacking  was  at  l607*&7  KM. 

Because  of  the  time  required  for  unpacking,  CPA  time  is  slightly 
greater  in  the  modified  program.  However,  since  the  information 
read  from  mass  storage  is  packed  into  1/4  as  many  words,  10  time  is 
considerably  shortened.  Total  run-time  was  reduced  to  52*5  °',°* 

Storage  requirements  are  decreased  from  142,000  octal  to  72,000 
octal.  With  both  time  and  space  reduced,  the  total  cost  of  the 
runs  decreased  to  37.1  °/o.  The  following  table  show  the  actual 
values  . 


Original  Program  Revision  1 


CPA 

74.659 

sec . 

$1,530 

103.141 

sec  0 

$2,114 

10 

241 .885 

sec . 

1.620 

63.201 

sec . 

.423 

CM  13927.915 

KWs 

12^20 

3917. B58 

KWs 

4.20? 

Cost 

of  Job 

$18,471 

$6,847 
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2.2  Ionospheric  Display  Programs 


The  ionospheric  model  can  be  displayed  a number  of  ways. 

Several  of  the  displays  used  herein  were  developed  under  contract 
F19628-73-C-0307  and  are  described  in  report  AFCRL-TR-75-O3I9 . The 
first  method  of  display  is  the  vertical  profile.  The  vertical  profile 
can  be  displayed  for  an  arbitrary  set  of  colatitudes  and  longitudes 
once  the  ionospheric  model  has  been  established.  Figur®2.1  and  2.2 
are  examples  of  this  type  of  display;  details  may  be  found  in  Appendix  F 
of  the  aforementioned  report. 

To  display  the  model  in  the  vertical  plane  over  a range  of 
points,  several  options  are  available  and  have  been  used  in  the 
course  of  this  contract.  First  the  layer  specifications  can  be 
displayed  in  the  input  coordinate  system  to  S2PPR.  Layer  plasma 
frequencies  and  heights  can  be  displayed  as  a function  of  the  input 
colatitude.  Figures  2.3  and  2.4  are  examples  of  this  type  of  display. 

In  the  figures  layer  parameters  are  displayed  as  a function  of  accurate 
geomagnetic  colatitude.  The  program  which  produces  these  plots,  S2PLT, 
uses  the  same  data  deck  as  program  S2PPR.  Details  on  S2PLT  are  given 
in  Part  II,  PML  I38.  Using  program  S2PLT  before  an  ionospheric  model 
is  generated  ensures  that  the  data  deck  will  produce  the  desired 
model. 

A companion  program  to  S2PLT  is  program  S2P0BL  which  is  described 
in  Part  II,  PML  146.  This  program  again  uses  the  data  deck  for  program 
S2PPR . S2P0BL  can  produce  plots  of  layer  parameters  similar  to  those 
of  S2PLT  but  offers  the  advantage  that  plots  are  of  arbitrary  ionospheric 
cross-sections  which  may  be  specified  by  giving  a starting  point, 
an  azimuth,  and  a range.  Plots  of  this  type  are  useful  in  comparing 
backscatter  ionograms  for  a particular  azimuth  with  the  plasma  frequency 
distribution  along  that  azimuth. 

A third  method  of  displaying  the  vertical  ionosphere  is  program 
RAYPLOT-2  which  is  a companion  program  to  the  ray  trace  program.  Once 
rays  are  traced  they  may  be  plotted  in  the  vertical  plane  along  with 
the  contours  of  constant  plasma  frequency.  This  procedure  is  time 
consuming  since  it  requires  the  evaluation  of  the  plasma  frequency  at 
many  points  by  the  ray  tracing  electron  density  subroutine.  Details  on 
this  program  can  be  found  in  Appendix  C of  Report  AFCRL-TR-75-O3I9 . 
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Another  option  of  program  RAYPLOT-2  is  the  contour  display  of 
plasma  frequency  in  the  horizontal  plane.  This  also  requires  that 
at  least  some  rays  be  traced,  but  at  the  present  time  is  the  only 
display  program  available  for  the  horizontal  contours. 


2.3  Collision  Frequency  Pre-Processing  Program 

In  the  backscatter  synthesis  rays  are  computed  using  an  index  of 
refraction  with  magnetic  field  but  with  no  collisions.  The  collision 
frequency  is  required  to  compute  the  absorption  along  the  ray.  This 
is  important  especially  with  low  angle  rays  since  excessive  absorption 
may  cause  rays  not  to  appear  on  a real  backscatter  ionogram.  The 
collision  frequency,  1/  , in  collision/second/cc . has  been  specified  by 
the  following  equations: 


'£/  = 1 + 1 . 
en  ei 


where  Z/  is  the  collision  frequency  with  ionized  molecules  in  collisions/sec/ 
ei 

cc . and  %/  is  the  collision  frequency  with  neutral  molecules  in  collisions/ 
en 

sec/ cc  . 

1/  = 3.6  x 10'1U  N (</>  T )1/2 

en  n'  n' 

where  N is  the  number  of  molecules/cc 
n 

a(  is  the  ratio  of  electron  to  neutral  temperature 

, o 

T is  the  neutral  temperature  in  K. 


e 1 


5.5N 

2 — - los 

(*T)3/2 


220.  UTn), 
” 1/3 


where  is  the  electron  density  in  electrons  per  cc . 

The  quantities  N and  T are  supplied  by  the  subroutine  CCIA  described 
n n 

in  report  AFCRL-72-OI7I • and  T^  are  functions  of  position  in  r,0,0, 
the  time  of  the  day,  the  date  (gives  the  declination  angle  of  the  sun), 
the  10.7  cm  solar  flux,  the  average  10. 7 cm  solar  flux,  and  the  plane- 
tary index  . Details  of  this  dependence  can  be  found  in  the  afore- 
mentioned report  and  in  C.IRA  1972  report  pp  227-257. 
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The  quantity^  has  been  modeled  to  vary  with  season,  time  of  day, 

and  solar  cycle  based  on  data  given  by  C.M.  Rush  and  T.J.  Elkins,  (1975)* 

A variation  with  accurate  geomagnetic  latitude  is  also  given. 

The  electron  density  Ng  is  supplied  during  the  course  of  a ray 

execution  by  the  desired  electron  density  subroutine. 

The  final  collision  frequency  is  not  computed  until  rays  are 

traced  since  the  plasma  frequency  is  required.  In  this  way  many  plasma 

frequency  models  can  be  used  with  one  collision  frequency  model.  The 

quantities  which  are  computed  by  the  pre-processing  program,  COLPP,  are 

N , T , and  ^ as  a function  of  position,  date,  and  universal  time.  Tables 
n n 

of  and  CAT  are  then  generated  for  use  in  the  ray  trace  program, 

en  n 

Details  of  program  COLPP  can  be  found  in  Part  II,  PML  139* 

To  display  the  collision  frequency  a program  was  written  which  plots 
the  collision  frequency  profile  for  an  arbitrary  point  in  dipolar 
geomagnetic  coordinates.  This  program  requires  that  program  COLPP  has 
been  previously  run  and  that  a plasma  frequency  subroutine  to  the  ray 
trace  program  is  available.  New  collision  frequency  profiles  should  be 
plotted  whenever  the  electron  density  subroutine  is  changed.  Plots  are 
labeled  with  both  the  collision  frequency  model  and  the  electron  density 
model  used.  Details  of  the  collision  frequency  plotting  program,  COLPLT, 
are  given  in  Part  II,  PML  lUl . 


Chapter  III 


RAY  TRACING 


Due  to  the  complex  nature  of  the  polar  trough  region  of  the 
ionosphere,  three  dimensional  ray  tracing  was  recognized  by  the 
contract  monitor  as  the  only  approach  which  would  allow  proper  eval- 
uation of  the  diverse  phenomena  of  this  region.  This  is  the  only  way 
of  evaluating  the  effects  of  off-great-circle  deviations  and  of 
evaluating  the  effects  of  the  magnetic  field.  The  execution  time  of 
the  Hamiltonian  three-dimensional  ray  tracing  program  with  magnetic 
field  is,  however,  very  time  consuming.  As  an  alternate  means  of 
synthesizing  backscatter  ionograms,  a two  dimensional  quasi-parabolic 
approach  is  also  being  tried.  If  results  from  this  two-dimensional 
approach  show  consistancy  with  the  three-dimensional  method,  this  may 
be  used  in  regions  where  the  trough  gradients  are  not  too  great  or  as 
a first  pass  at  verifying  or  modifying  predicted  electron  densities 
from  backscatter  ionograms.  Any  simplification  involved  in  the  two- 
dimensional  approach  must  be  tested  against  the  full  ray  tracing  program. 

3.1  Hamiltonian  Ray  tracing  Improvements  and  Modifications 

The  ray  tracing  program  used  in  the  current  investigation  is  the 
Jones  ray  tracing  program  as  modified  under  contract  Fl9628-73"C-0307 
and  described  in  Appendix  A of  report  AFCRL-TR-75”0319 • More  details 
on  the  ray  tracing  approach  are  given  in  Jones  and  Stephenson  (197C>)» 

For  the  current  utilization  of  this  program,  more  specific  information 
had  to  be  extracted  than  was  available  in  the  RAYSET  form.  A special- 
ized electron  density  was  added,  and  special  magnetic  field  considera- 
tions were  implemerted.  Since  a different  approach  to  the  ccxnputat ion 
of  absorption  was  used,  these  differences  caused  program  modification. 
Finally  the  computation  of  coordinate  transformations  in  the  print 
routine  was  simplified  saving  both  time  and  storage. 

3.1.1  The  Electron  Density  Subroutine 

The  electron  density  subroutine  currently  used  in  the  ray  tracing 
subroutine  is  a modification  of  a routine  developed  by  Arcon  Inc. 
(Vanguri,  1973')-  Plasma  frequency  values  are  read  in  at  discrete  grid 
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points  and  values  of  the  plasma  frequency  and  its  derivatives  with 
respect  to  height,  colatitude,  and  longitude  in  the  geomagnetic 
dipolar  system  are  interpolated.  Interpolation  is  quadratic  in 
height  and  colatitude  for  plasma  frequency  values  and  linear  in  the 
longitudinal  direction.  Derivatives  are  computed  using  central 
finite  differences  of  the  four  closest  points  to  maintain  continuity. 

Modifications  to  this  routine  were  to  allow  for  variations  in 
the  height  increments.  This  meant  that  a finer  gird  size  could  be 
used  in  the  E-region  where  sharp  horizontal  gradients  occur.  Methods 
of  interpolation  and  derivative  computation  remained  consistent  with 
the  previous  program. 

The  other  major  modification  to  the  Arcon  subroutine  was  to 
convert  the  data  storage  to  blocks  of  data  which  are  read  into  the 
computer  a section  at  a time  as  a particular  ray  enters  that  section. 
In  this  way  much  larger  data  arrays  may  be  used  to  specify  the 
ionosphere  allowing  both  wider  coverage  and  finer  increments  in  data. 
The  finer  increments  were  necessary  particularly  in  colatitude  and 
longitude  to  faithfully  reproduce  the  sharp  trough  wall  structure. 

At  the  present  time  plasma  frequency  distributions  of  up  to  four 
million  data  points  are  in  use.  Distributions  are  stored  on  disk  packs 
for  speed  in  processing.  While  this  method  does  involve  increased 
computer  time,  the  overall  speed  reduction  runs  about  33  Sb  . This  is, 
however,  necessary  if  rays  are  to  accurately  represent  the  trough 
conditions.  Details  of  this  subroutine  can  be  found  in  Part  II, 

PML  127,  Revision  1. 

3.1.2  Conditions  of  Perpendicularity  to  the  Magnetic  Field  Lines 

In  the  polar  region  ionization  is  frequently  enhanced  along 
magnetic  field  lines.  For  this  reason  backscatter  occurs  from 
magnetic  field  lines  when  rays  approach  perpendicularity  to  them.  It 
is  , therefore,  necessary  to  know  the  angle  between  the  magnetic  field 
and  the  ray  direction,  which  is  referred  to  as  . Since  the  dipolar 
magnetic  field  model  is  not  a good  approximation  in  the  particular 
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polar  region  of  interest,  it  was  necessary  to  determine  this  angle,  , 
with  a more  accurate  magnetic  field  model.  For  the  purposes  of  ray 
computation,  however,  the  dipolar  model  was  found  to  be  adequate. 

This  meant  that  ray  integration  was  performed  using  the  dipolar 
model;  and  when  an  integration  step  was  completed,  was  computed 
using  the  accurate  magnetic  field  model.  Integration  was  controlled 
so  that  points  at  which  the  magnetic  field  and  the  ray  direction 
were  perpendicular  (or^  was  90°)  were  interpolated  and  printed  out. 

These  points  then  became  the  basis  for  the  field  aligned  backscatter 
component  of  the  ionogram. 

The  accurate  magnetic  field  model  was  developed  by  Arcon,  Inc. 

in  1973. 

3.I.3  Establishment  of  Data  Files  for  Ionogram  Computation 

As  rays  are  run  certain  key  points  are  stored  for  future  access 
in  creating  backscatter  ionograms  and  making  power  computations.  The 
points  of  particular  interest  are  points  where  the  ray  is  perpendicular 
to  magnetic  field  lines  and  points  where  the  ray  impacts  the  earth.  All 
the  information  about  these  points  is  saved  in  a single  record  along  with 
an  identfying  code  such  as  "90  DEG."  or  "RCVR".  Other  points  which 
give  additional  insight  to  the  rays  are  saved  such  as  the  transmitter 
point,  the  apogee  point,  and  points  past  the  90°  point  which  are 
within  6°  of  perpendicularity.  The  information  was  selected  to  be 
comprehensive  but  not  too  cumbersome  to  be  easily  stored.  For  each 
ray  trace  run  which  requires  a new  W-array,  the  W-array  is  also  stored. 
All  subsequent  processing  programs  on  the  rays  with  the  exception  of 
program  RAYPL0T-2  use  this  file.  The  data  file  has  logical  file  name 
TAPE7  and  is  generally  stored  on  multi-file  tapes.  TAPE7  in  effect 
replaces  the  "raysets”  developed  by  Croft.  Detailed  descriptions  of 
the  contents  of  TAPE7  can  be  found  in  several  program  write-ups  included 
in  this  report.  See  pages  9“H  of  PML  144  in  Part  II  or  pages  II-I3 
of  PML  145. 
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3.1.4  Absorption  Calculations 


The  absorption  computation  was  necessary  for  some  rays  since 
the  power  level  of  the  ray  had  to  be  considered  to  know  if  it  would 
appear  in  a backscatter  ionogram.  For  this  reason  the  collision 
frequency  and  the  imaginary  part  of  the  complex  index  of  refraction 
had  to  be  computed.  There  was  no  need,  however,  to  do  complex  ray 
tracing  to  determine  the  ray  position  since  collisions  had  little 
effect  on  the  ray  path.  For  this  reason  the  complex  index  of  refrac- 
tion was  computed  only  for  the  absorption  calculations. 


The  ionospheric  radiowave  absorption  is  integrated  along  a given 
ray.  Its  derivative  with  respect  to  group  path,  the  independent 
variable,  is 


imag(^  n2) 


2 2 2 

K + K0  + K* 
r © 0 


where  A is  the  absorption  in  decibels 
4J  is  the  angular  wave  frequency 

c is  the  speed  of  electromagnetic  waves  in  free  space 
K^,  ^0  are  t^e  components  of  the  propagation  vector 

P is  the  phase  path  length 
and  n is  the  phase  refractive  index. 


All  of  the  above  quantities  except  n are  defined  in  the  normal  sense  as 
used  by  Jones  ray  trace  program. 

2 

Two  methods  of  computing  n were  tried.  The  first  and  more  simple 

2 

approach  was  to  compute  n taking  collisions  into  account  but  ignoring  the 
magnetic  field.  In  this  case 


2 

n 


X-iZ 

1-iZ 


where  X is  the  refractivity  due  to  the  electron  density 
and  Z is  the  refractivity  due  to  the  collision  of  electrons  with 

neutral  and  ionized  molecules . 


■ -3 

• > • 

- 


Z = — ^ , 

2tlf  x 10 

where  is  the  collision  frequency  in  collisions/sec . 
and  f is  the  transmission  frequency  in  MHz. 

We  then  have 


tby-  2. 

lmag(je^  n ) = “ — 2 

c c 1 + Z 


X 

2 


Results  of  the  absorption  calculation  using  this  formula  can  be  found 
in  Tables  3»land3.2under  the  heading  w/o  Field. 

The  second  approach  was  to  use  the  imaginary  part  of  the  full 
Appleton-Hartree  formula  with  magnetic  field  and  with  collisions. 

Results  using  this  approach  are  given  in  Tables  3 .land  3^ unde r the 
heading  w/Field.  As  can  be  seen  from  the  tables  there  is  a significant 
difference  in  the  absorption  loss  over  1 and  2 hops  using  formulas  with 
and  without  magnetic  field  when  the  elevation  angle  is  10°  and  under. 
Since  the  inclusion  of  magnetic  field  represents  an  average  computer  run 
time  increase  of  3%,  the  absorption  calculations  now  include  the 
magnetic  field  effects 

Ray  trace  runs  should  include  the  absorption  calculation  only 
when  this  information  is  specifically  required.  The  computer  run  time 
in  the  sample  cases  in  Tables  3 JL  and3«2  represents  an  average  increase  of 
36  °/o  . Moreover,  3l?000  octal  words  of  additional  core  storage  were 
required.  While  the  sample  runs  in  Tables  3*1  and 3«2  were  made  with 
automatic  error  control  on  the  integration  step  size,  no  significant 
discrepancy  in  absorption  losses  was  noted  when  a fixed  integration  step 
size  of  10  km  was  used. 

The  collision  frequency  was  computed  using  collision  frequency 
subroutine  C0LAF1  which  is  described  in  PML  140,  Part  II.  Subroutine 
C0LAF1  is  dependent  on  a pre-processing  program  COLPP  which  is  described 
in  Section  2.3. 

This  subroutine  makes  use  of  Ng,  the  electron  density,  as  it  is 
computed  along  the  ray  path.  Interpolation  in  the  tables  provided  by 
COLPP  is  linear  in  r,  0,  and  0 for  the  quantity  c^Tn  and  linear  in  0 and 
0 for  7/,n-  Interpolation  for  2/ en  in  the  height  direction  is  done  by 
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linear  interpolation  on  the  logarithm  of  since  1/  ^ is  rapidly 

decreasing  in  the  lower  regions  of  the  ionosphere  where  absorption 
is  greatest.  Comparison  runs  were  done  using  linear  interpolation 
for  ~t//Qn  in  height  and  interpolating  on  the  logarithm  of  Results 

of  these  runs  can  be  found  in  Tables  3*1  and  3*2- 

3.1.5  Other  Modifications  to  the  Ray  Tracing  Program 

Other  modifications  to  the  ray  tracing  program  include  changes 
to  the  print  routine.  Ray  position  in  dipolar  geomagnetic  coordinates 
was  added  to  the  print  out  at  each  selected  position.  Also  added 
was  the  quantity  PSI  which  is  the  angle  between  the  magnetic  field 
and  the  wave  normal  in  degrees  . 

Computation  of  several  quantities  which  were  printed  out  was 
changed.  They  are  now  computed  directly  by  spherical  geometry  formulas 
instead  of  by  matrix  transformation.  In  this  way  both  computation 
time  and  storage  are  reduced.  Values  were  cross  checked  and  no  dis- 
crepancies found. 

3.2  Two-dimensional  Ray  Tracing  with  Quasi-Parabolic  Model 

Three-dimensional  ray  tracing  with  the  Jones  program  may  prove 
too  slow  for  applications  such  as  real-time  ionogram  inversion.  Where 
speed  is  important,  a two-dimensional  ray  trace  may  be  necessary.  The 
program  RAY2  does  a two-dimensional  ray  trace  through  a model  ionosphere 
made  of  rectangular  cells  within  each  of  which  the  electron  density 
varies  quas i-parabol ical ly  with  height  and  is  constant  in  the  horizontal 
direct  ion . 

The  quasi-parabolic  model  of  electron  density,  introduced  by  Croft 
and  Hoogasian  (1968),  is  very  much  like  a parabola.  It  has  the  advantage 
that  it  admits  exact  equations  for  ray-path  parameters.  A single 
integration,  which  may  be  carried  out  analytically,  gives  the  exact 
results  of  transmitting  a ray  through  a quasi-parabolic  layer.  Quasi- 
parabolic layers  may  be  stacked  one  above  another  to  make  a piecewise 
quasi-parabolic  profile  over  a point  or  region,  and  rays  over  that 
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region  may  be  traced  with  one  integration  for  each  quasi-parabolic 
layer.  If  the  ionosphere  over  that  region  were  perfectly  horizontally 
stratified  (spherically  symmetrical)  with  a true  quasi-parabolic 
profile,  that  ray  trace  would  be  exact.  To  deal  with  horizontal 
variation,  recall  that  any  function  may  be  approximated  by  a step 
function.  The  horizontal  extent  of  regions  in  RAY2  is  limited  to  the 
distance  where  the  ionosphere  is  approximately  constant.  By  the 
same  token,  the  program  is  not  limited  to  a fixed  integration  step 
nor  even  to  a strategy  of  varying  integration  steps  depending  on  local 
conditions;  it  can  look  ahead  and  determine  in  advance  the  region 
over  which  conditions  are  reasonably  constant. 


3.2.1  Formulae  for  Quasi-Parabolic  Models 

The  basic  formulae  for  tracing  rays  through  quasi-parabolic 
layers  have  been  given  by  Croft  and  Hoogasian  (I968).  The  integral 
they  give  for  ground  range  has  six  closed  forms  depending  on  radicand 
parameters  (see  Pierce  (1929),  PP  16  and  25-26).  RAY2  includes  sub- 
routines for  the  inverses  of  those  six  functions  as  well  as  for  the 
functions,  because  the  quasi-parabolic  cells  are  limited  in  horizontal 
as  well  as  vertical  extent.  Let  a cell  extend  from  height  if.  to  and 
let  the  ground  range  of  a ray  traversing  that  cell  be 

rH  1 

R = J f (h)  dh  = F(H  ) . 

H0 

If  R is  greater  than  the  horizontal  extent  R of  the  cell,  it  is 


,-1/ 


0 


necessary  to  invert  F to  compute  H = F (r  ),  the  height  which  the  ray 

* o 

reaches  at  the  far  end  of  the  cell  (equivalently,  is  the  upper  limit 
of  integration  such  that 

= J f(h)  dh)  . 


3.2.2  Fitting  Quasi-Parabolic  Layers  Together 

RAY2  accepts  the  same  data  for  ionosphere  description  as  the 
three-dimensional  ray  trace,  but  ignores  perturbations.  It  fits  two 
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quasi-parabolic  cells  between  successive  H-levels  (critical  points 
of  electron  density  as  a function  of  height).  The  quasi-parabolic 
layers  are  chosen  to  fit  the  input  data  as  to  slope  and  electron  density 
at  the  critical  points.  Further,  the  layer  with  higher  electron  density 
agrees  with  the  sine-squared  model  as  to  value  at  its  low-value  side; 
the  other  layer  matches  the  slope  of  the  former  where  they  meet.  This 
results  in  a slight  discontinuity  in  electron  density  between  successive 
quasi-parabolic  layers,  but  the  derivative  of  electron  density  is 
cont inuous  . 

3.2.3  Preliminary  Results 

Preliminary  test  runs  show  agreement  within  5°/°  for  ray  apogee 
height,  apogee  range,  and  one-hop  ground  range  between  the  two-  and  three- 
dimensional  ray  trace  programs  for  most  low-angle  rays,  with  some 
disagreements  around  8 7o . Agreement  is  poorer  for  rays  which  have 
initial  elevations  above  12  degrees. 

Comparison  of  program  time  is  difficult.  The  two-dimensional 
ray  trace  does  not  yet  compute  group  path,  phase  path,  and  a few  other 
ray  parameters  computed  by  the  three-dimensional  ray  trace.  Inclusion 
of  any  of  those  computations  will  slow  the  two-dimensional  trace  down 
somewhat.  On  the  other  hand,  the  two-dimensional  trace  includes  a 
pre-processing  step  which  is  done  in  a separate  program  in  the  three- 
dimensional  job;  this  makes  the  comparison  more  favorable  to  the 
two-dimensional  trace  when  total  time  from  data  input  to  completed  rays 
is  of  interest.  At  any  rate,  preliminary  timings,  not  corrected  for 
the  above-mentioned  effects,  indicate  that  the  two-dimensional  trace  is 
running  almost  ten  times  as  fast  as  the  three-dimensional  one. 

Much  more  testing  is  needed  to  see  if  the  minimum  trace  plots 
generated  by  this  program  show  the  same  general  features  as  those  from 
the  three-dimensional  ray  trace.  The  preliminary  plots  of  ground 
range  versus  elevation  angle  doshow  the  same  general  features,  so  the 
two-dimensional  ray  trace  appears  promising. 
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Chapter  IV  BACKSCATTER  SYNTHESIS 


4.0  Introduction 

A wealth  of  information  is  produced  as  a result  of  tracing 
rays  through  a complicated  3 dimensional  medium  represented  by  an 
inhomogeneous,  anisotropic  ionosphere.  In  point  of  fact,  each  computed 
point  on  each  ray  and  the  environment  at  this  point  is  a potential 
source  of  useful  information.  To  be  really  useful  however,  this  mass 
of  data  must  be  sorted  out,  possibly  be  transfomed  into  other  infor- 
mation and  finally  displayed  in  a fairly  easily  digestible  form.  For 
this  purpose  several  "display"  programs  have  been  written.  They 
are  described  in  Part  II.  Here,  however,  a particular  set  of  infor- 
mation transformations  - display  subroutines  is  described.  The 
displays  are  "synthesized"  backscatter  plots  of  various  sorts  including 
a full  ionogram  (backscatter  intensity  vs.  group  path  delay  and  frequency), 
a minimum  group  path  "ionogram",  and  others.  These  displays  closely 
emulate  work  which  has  been  reported  on  previously  (Georges  and  Stephenson, 
1969)*  However,  these  previously  reported  techniques  have  been  broadened 
and  restructured  to  suit  the  specific  objectives  of  the  contract  and  to 
provide  a set  of  more  generalized  software  which  can  be  adapted  to 
varying  needs. 

4.1  General  Discussion 

Ideally  one  can  imagine  that  a given  set  of  rays  which  have  been 
traced  represents  an  adequate  sample  of  the  continuum  of  rays  which 
nature  uses  in  the  real  world  (assuming,  of  course,  that  the  ray 
approximation  to  radio  wave  propagation  is  valid).  From  a backscatter 
standpoint,  the  information  which  each  sample  should  provide  is: 

1)  group  path  length  (to  give  the  time  delay  to  the  backscatter 
region ) 

2)  "effective  distance"  to  the  backscatter  region  (in  order  to 
compute  R + losses) 

3)  power  absorbed  from  the  ray  due  to  electronic  collisions 
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4)  various  geometric  quantities  such  as  backscatter  region 
coordinate,  ray  direction,  etc.  for  purposes  of  computing 
backscatter  cross  sections. 

This  information  is  normally  supplied  by  the  ray  trace  program  on 
TAPE7  (Section  3-1.3). 

Assuming  that  an  adequate  sample  is  available  for  a given 
frequency,  the  received  power  within  a particular  range  (group  path 
length)  gate,  A.g,  can  be  computed  from 

(such  that  group  path  length  of  the 
sample  is  within  the  g.,  g.  +Ag 
all  samples  range  "bin") 

The  quantity  p.  is  the  computed  incremental  backscatter  power  due  to 
t h ^ 

the  j sample  ray.  It  is  assumed  that  the  rays  have  been  suitably 
normalized  so  that  their  incremental  outgoing  powers  sum  to  the  total 
transmitted  power. 

Unfortunately  it  appears  to  be  difficult  to  obtain  a good  measure 

of  "effective  distance"  (or  ray  focusing)  although  Bennett  (1969,  1973) 

alludes  to  the  possibility  of  calculating  this  quantity  for  a s ingle 

ray.  An  intuitively  appealing  alternative  to  this  ideal  single  ray  is 

a small  set  of  rays  which  can  define  a "flux  tube".  Assuming  things 

go  well  (the  set  of  rays  do  not  get  all  "tangled"  or  go  wandering 

off  some  place),  an  effective  R can  be  calculated  from  R = ^A^/S 

where  A is  the  cross  sectional  area  of  the  flux  tube  at  the  backscatter 
P 

region  (hereafter  often  referred  to  as  "landing  point")  and  S is  the 
"size"  of  the  flux  tube  at  the  transmitter  in  steradions.  Thus  one 
is  confronted  with  the  problem  of  how  many  rays  constitute  an  adequate 
set  for  cross-sectional  area  calculations.  Obviously  at  least  3 are 
needed.  It  is  equally  obvious  that  if  the  rays  happen  to  "land" 
along  a line  that  cross-sectional  area  cannot  be  defined.  The  algorithms 
used  here  require  4 rays  to  define  a set  suitable  for  cross-sectional 
area  calculations.  Four  rays  can  land  on  or  close  to  a line  just  as 
can  3 rays  but  less  likely  so.  In  any  case,  with  enough  sample  ray 
sets,  it  probably  does  not  make  much  difference  how  many  rays  are  used 
to  define  a flux  tube. 

The  strategy  described  in  Section  4.2  for  computing  "ray  density" 
and  hence  backscatter  power  is  to  compute  the  projected  area  A^  for  the 
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pertinent  landing  points  between  all  neighboring  rays  which  have 
been  traced  and  which  land,  using  4 neighboring  rays  to  define  a 

flux  tube.  This  strategy  was  also  used  by  Georges  and  Stephenson  (1969)- 
Imagine  a Cartesian  frame  of  take-off  elevation  and  azimuth  where 
elevation  typically  runs  from  0 to  jO  degrees  and  azimuth  over  same 
interval  (20  to  30  degrees)  which  suitably  models  a radar  antenna 
pattern  relative  to  the  electron  density  model  and  transmitter  location. 

The  rays  are  usually  traced  at  equal  intervals  of  .5  or  1 degrees. 

Taking  a reference  ray  at  (a^,e^)  (azimuth,  elevation)  then  the  3 
neighboring  rays  which  define  a sample  flux  tube  are  at  (a.,e.-  Ae), 
(a.-da,e.),  (a.-aa,e.  - ae).  Thus,  except  at  the  borders  of  the 
sample  region,  each  ray  may  be  used  4 times  to  define  4 flux  tubes  - 
providing  of  course  that  all  rays  in  a given  flux  tube  quartet  arrive 
at  the  appropriate  landing  point. 

Subroutine  DEN,  which  is  described  briefly  in  the  next  section 
and  in  Part  II^PML  161,  accepts  a ray  sampl ing  procedure  which  is 
slightly  more  general  than  that  cfescribed  above  in  that  neighboring 
elevation  angles  need  not  be  the  same.  For  minimum  group  path  length  (g-p-1) 
power  calculations,  ray  density  is  calculated  around  only  those  rays 
which  are  found  to  be  minimum  g-p-1  rays,  rather  than  for  all  rays. 

This  is  discussed  in  section  4.4. 

In  addition  to  the  problem  of  computing  the  effective  R to  be 
used  in  the  radar  equation,  one  is  faced  with  the  problem  of  computing 
radar  backscatter  cross  sections  for  the  various  regions  where  such 
backscatter  is  liable  to  contribute  significant  power.  The  two  regions 
(landing  points)  used  herein  are  the  earth's  surface  and  certain  regions 
in  the  auroral  zone  where  the  rays  intersect  the  earth's  magnetic  field 
at  ninety  degrees.  These  regions  often  experience  enhanced  ionization 
in  the  form  of  field  aligned  "irregularities"  which  cause  partial 
reflection  of  electromagnetic  energy  provided  the  perpendicularity 
condition  is  satisfied.  As  far  as  the  rays  themselves  are  concerned, 
the  irregularities  are  assumed  to  be  so  localized  that  the  ray  paths  are 
not  affected.  A brief  discussion  on  radar  cross-section  calculation  is 
also  included  in  the  next  section. 
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4.2  The  Backscatter  Algorithm 


The  received  power,  due  to  a "target"  with  total  radar 
cross-section,  <?",  at  distance  R from  the  transmitter  may  be  approxi- 
mated by  the  "radar  equation"  (Skolnik,  I962). 


P = 
r 


V G A cr 
t t r 

(47Tr2)2 


where 

A 


A2Gr 


is  the  receive  antenna  effective  aperature, 


r 4 7f 

Gt,Gr  are  the  transmit,  receive  antenna  power  gains  (over 
isotropic  antennas), 

Pt  is  the  transmitted  power, 

A is  the  free  space  wavelength  of  the  electromagnetic  waves. 


This  equation  makes  several  assumptions  such  as  a "point"  target, 
a non-absorbing  medium,  etc.  For  extended  targets  such  as  the  earth's 
surface  or  large  areas  of  enhanced  ionization  it  is  generally  necessary 
to  consider  the  contributions  to  received  power  from  many  small  flux 
tubes  for  which  <r  and  R remain  $>proximately  constant.  Furthermore, 
for  pulsed  radars  which  are  considered  here,  it  is  frequently  desirable 
to  sum  the  received  power  into  various  group  path  (time  delay)  "bins". 
These  bins  are  usually  representative  of  a given  radar  system  (range 
resolution)  and/or  the  sampling  intervals  used  during  ray  tracing. 

Thus  consider  the  enhanced  radar  equation,  including  losses,  for  a 
single  flux  tube 


PGA  <r. 

t t r 1 

(4rR.2)2 


• (abs).  * (refl). 


. th 


where  subscript  i refers  to  the  i flux  tube, 
p^  is  the  incremental  received  power, 

(abs)  is  the  absorption  loss  factor, 

(refl)  is  the  reflection  loss  factor  for  multi-hop, 
and  the  other  terms  are  defined  above. 
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Let  the  area  which  the  i flux  tube  cuts  out  of  the  landing 

point  be  denoted  by  and  the  angle  of  arrival  be  denoted  by 

such  that  A = A sin//,,  then  the  above  expression  for  incremental 
p,i  1 ri’ 

received  power  can  be  written  as : 


" Pt  ^4/T^  GtGr  ^TTA.sin^. 


) cr , (abs  ) . (refl)  . 

7 1 v 7 1 v 7 i 


This  is  essentially  the  form  used  by  Georges  and  Stephenson  (1969) 
except  they  include  a further  loss  term  due  to  pulse  spread  and  do 
not  include  losses  due  to  absorption  and  ground  reflection.  The 
pulse  spreading  results  merely  because  the  four  rays  defining  a given 
flux  tube  have  different  group  path  lengths  to  the  landing  point  which 
in  turn  results  in  varying  delay  factors  in  the  return  of  the  pulse 
leading  and  trailing  "edges".  It  is  an  approximate  factor  which  is 
calculated  here  as 

(spread).  = 


where  T is  the  transmitted  pulse  width  (in  units  commensurate  with 

group  path  "length")  and  . is  the  sample  standard  deviation  of 

> 1 th 

group  path  lengths  of  the  quartet  of  rays  defining  the  i flux  tube. 

Note  that  cr  is  the  total  radar  cross  section  which  can  be 
1 

computed  from^t  A^  where  cr  is  the  (non-dimensional)  radar  cross-section 

per  unit  area  and  A is  the  illuminated  area  at  the  landing  point. 
r 1 

The  above  expression  for  p . is  written  in  a form  which  expresses  the 
v x , 1 

various  loss  terms  in  a meaningful  way.  Operating  on  the  terms  in 
brackets  (and  the  spread  loss  term)  with  10  log^,  the  following  loss 
terms  (and  their  units)  are  obtained: 

2. 

G^  = lOlog^  = "wave  length  loss"  (db-km  ) 

= 10  log^Gt  = transmit  antenna  gain  (db) 

Gv  = 10  log^  = receive  antenna  gain  (db) 

% = 20  1°g10(lr7~s“17')  = distance  Sain  (db-km~M ) 

i r 1 
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The 


C5 

= 10 

108io^i  • Ai 

= cross-section  gain 

( db-km 

s) 

G6 

= 10 

1Og10  2 cr  . 

= pulse  spread  gain 

(db) 

G7 

= 10 

l°g10(abs). 

= absorption  (db) 

G8 

= 10 

logio(refl)i 

= multi-hop  reflection  gain 

(db) 

following 

is  a brief  summary  of  how  these  factors  are 

computed 

G 


1 


G 


2 


G 

G 


3 

4 


is  computed  directly  from  knowledge  of  the  specified 
transmitted  frequency. 

is  computed  through  the  use  of  various  appropriate  function 
subroutines.  (For  an  example  see  Part  II,  PML  142.) 
is  computed  in  a similar  manner  as  G . For  an  example  see 
Part  II,  PML  143. 

is  computed  from  data  returned  by  subroutine  DEN  which  among 
other  things  computes  the  quantities  S^,  and  // ^ . A fairly 
complete  description  of  this  subroutine  appears  in  Part  II, 

PML  161. 


G,_  is  computed  through  the  use  of  appropriate  backscatter  cross- 
section  function  subroutines.  As  examples  refer  to  Part  II, 
PML  163*  PML  I63  is  a user's  guide  to  subroutine  BACSCA1 
which  computes  the  incremental  power  from  one  flux  tube  and 
one  landing  point. 

G^  is  computed  from  information  supplied  by  DEN  and  the  system 
pulse  width  (expressed  in  kilometers) 

G^  must  be  computed  within  the  ray  trace  program  since  absorption 
is  a quantity  which  is  calculated  by  integration  along  the 
ray  path.  Refer  to  Chapter  2,  part  2.3  and  Chapter  3,  part 
3-1.4  for  more  details. 

G g is  computed  by  assuming  a constant  db  loss  per  ground 

reflection.  This  is  taken  to  be  around  1 db  per  reflection 
independent  of  angle  of  incidence  and  frequency. 


It  should  be  pointed  out  here  that  no  account  is  taken  of  the  fact 
that  power  is  extracted  from  the  flux  tube  due  to  scattering  as  it  goes 
from  landing  point  to  landing  point.  In  particular,  even  though 
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scattering  from  field  aligned  irregularities  may  partially  shield 
the  ground  backscatter  region,  this  is  considered  to  be  a second  order 
effect . 

Finally  something  about  "flux  density"  should  be  mentioned.  A 

2 

measure  of  "flux  density"  (e.g.  lines/km  ) is  given  by  the  inverse  of 
the  cross-sectional  area  of  the  flux  tube  at  a given  point.  This 
measure  is  valid  only  if  flux  conservation  is  observed  i.e.  as  long  as 
all  rays  which  start  out  within  the  boundaries  of  the  flux  tube  remain 
there . 

The  boundaries  of  the  flux  tube,  on  the  other  hand  must  change  in 
shape  as  it  wanders  through  the  ionosphere.  In  particular  it  is 
extremely  unlikely  that  it  maintains  the  straight  sides  which  it  starts 
out  with.  Flux  tube  area  is  computed  assuming  straight  sides.  Hopefully, 
on  the  whole,  this  will  provide  a good  approximation.  Subroutine  DEN 
is  designed  to  "flag"  those  instances  when  it  appears  likely  that, 
because  of  distortions  in  the  relative  geometry  of  the  flux  tube  quartet, 
the  area  estimate  is  a poor  one.  Flux  tube  density  is  not  really  a 
measure  of  ray  focusing  unless  geometric  path  length  is  available. 

This  quantity  can  be  computed  by  integration  of  geometric  path  along  the 
ray  during  ray  tracing.  A measure  of  flux  tube  focusing  or  defocusing 
is  the  ratio  of  effective  distance  R (given  by  /A  /S)  and  geometric  path 
P.^ . More  exactly,  focusing  gain  is  given  by  40  log^R^/R.  This  quantity 
is  calculated  and  available  for  display  provided  R has  been  computed. 

4.3  Ray  Processing 

The  ray  trace  program  produces  several  useful  outputs  which 
includes  a printed  digest  of  information  about  each  ray,  a file  of  ray 
coordinates  which  is  useful  for  plotting  purposes  and  finally  a "rayset" 
which  is  a file  of  information  which  provides  enough  "raw  data"  for 
further  calculations  and  displays.  (See  Langworthy,  Barrett,  1975*)  For 
a description  of  the  "rayset"  file  see  Part  II,  PML  144  or  PML  157* 

This  file  of  "raysets"  (called  TAPE7  within  the  ray  trace  program)  is 
processed  through  subroutines  CRRSET  (Part  II,  PML  157)  and  DEN  (Part  II, 
PML  l6l)  to  produce  the  file  of  "flux  tubes"  which  are  finally  used  to 
provide  information  for  ionogram  synthesis  and  other  similar  displays.  A 
detailed  description  of  this  file  processing  is  given  there  and  will  not 
be  repeated  here. 
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4.4  Minimum  Group  Path  Backscatter  Synthesis 

In  Section  4.5  the  procedure  for  full  ionogram  synthesis  is 

outlined.  A useful  simplification  is  the  "leading  edge  ionogram", 
which  for  a fixed  azimuth  frequently  shows  the  dominant  features  of 
the  full  ionogram  (Wong,  1975)*  The  leading  edge  ionogram  usually 
consists  of  several  disconnected  traces  which  represent  regions  of 
enhanced  backscatter  return  because  of  ray  focusing  effects  and  the 
minimum  distance  "effect".  This  synthesized  ionogram  should  follow  the 
bottom  line  of  enchanced  power  of  full  ionograms . 

This  leading  edge  ionogram  is  obtained  by  looking  at  the  variation 
in  group  path  length  with elevat ion  angle  for  a particular  azimuth  and 
transmission  frequency.  All  relative  minima  in  group  path  are  considered 
to  be  leading  edge  points.  Also  considered  a leading  edge  point  is  the 
last  elevation  angle  before  ray  penetration  if  the  group  path  is 
decreasing  with  elevation  angle. 

The  leading  edge  points  are  considered  to  be  the  first  returns 
of  any  power;  as  a rule  the  minimum  path  points  suffer  less  power  loss. 
When  spread  losses  were  calculated,  such  pointswre  indeed  found  to 
give  minimum  spread  losses.  Final  ionograms  cannot  be  constructed  until 
all  power  considerations  are  known.  For  this  reason,  leading  edge 
ionograms  are  constructed  in  two  stages. 

First, informat  ion  on  minimum  points  is  extracted  by  program  GPMT 
from  TAPE7  as  described  in  Section  3*1  -3*  Details  of  program  GPMT  can  be 
found  in  Part  II,  PML  144.  Sample  output  from  this  program,  a leading 
edge  ionogram,  is  diown  in  Figure  4.1.  For  any  given  azimuth,  points 
are  collected  for  all  available  rays  and  joined  on  the  basis  of 
similar  elevation  angles. 

If  frequency  spacing  is  too  large,  points  may  not  be  connected 

properly.  The  leading  edge  ionogram  program  is  iterative  in  nature  so 

that  if  additional  frequencies  are  needed  to  clarify  some  fine  structure, 

just  those  additional  rays  are  computed.  Leading  edges  are  computed  for 
o 

both  90  points  and  1-hop  receiver  points,  giving  both  field  aligned  and 
ground  backscatter. 


-M 


Once  rays  of  the  leading  edge  ionogram  are  selected,  power  for 
these  rays  is  then  calculated.  Program  GPMT  creates  special  ray 
trace  runs  which  will  compute  the  absorption  and  provide  rays  at  fine 
increments  to  compute  spread  losses.  The  ray  trace  information  along 
with  other  output  tables  from  program  GPMT  are  used  as  input  to  program 
POWER  which  uses  the  formula  for  power  at  the  receiver,  Pr,  as  given  in 
Section  4.2. 

4.5  Complete  Ionogram  Synthesis 

A complete  ionogram  is  synthesized  by  utilizing  all  of  the  pertinent 
ray  trace  data  which,  hopefully,  provides  an  adequate  sample  for  the 
continuum  of  rays  which  could  be  traced.  From  a systems  standpoint  it 
is  sometimes  convenient  to  think  of  ray  tracing  (or  the  results  thereof) 
as  a mapping  from  one  set  of  "observables",  frequency,  initial  azimuth, 
initial  elevation,  (f,a,e)  to  a second  set  of  "observables",  backscatter 
intensity,  group  path  length  (or  range),  (P,G).  Usually  this  mapping 
is  not  1-1  since,  for  a given  (f^,a^,e^)  there  may  be  several  (P.G^) 
due  to  multiple  backscatter  regions.  Thus  one  should  consider  the  map 
(f,a,e)  — — (P^, G^, • ' ' ,pnGn)  where  n is  the  number  of  backscatter  regions. 

There  are  several  displays  of  information  which  can  be  considered 
to  follow  from  the  mapping.  They  correspond  to  various  displays  (or 
ionograms)  which  are  described  in  Stephenson,  Georges  (I969)  and  are 
as  follows:  (note  that  in  general  these  may  be  "3D"  displays  with  the 
dependent  variable  indicated  by  grey  scale.) 


1)  P vs  (e,a) 


const  f 


f is  held  constant  and  a summation  over  all  P^  is  done; 

G^  is  ignored  i.e.  the  map 

(a,e)  _ ..  — ) P.  is  displayed. 

x ’ 'const  f c — ' 1 v j 

2)  P vs  (G,e)  „ , 

' v ’ 'const  f 

here  consider  two  steps 

a)  (e)  , — »-  curves  in  each  (P.,G.)  plane 

' ' 'const  f x i'  i' 

b)  for  each  curve  (parametrized  by  e ) sum  all  values  of  P 
(over  all  P^G^  planes)  for  a given  value  of  G 
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3)  P VS  (G, a) 

' 'const  f 

same  as  for  (2)  but  the  curve  parameter  becomes  a,  i.e.  change  e 
to  a in  (2). 

4)  P vs  G,f 

here  consider  three  steps 

a)  for  each  value  of  f and  e (say)  (a)  — *curves  in  each 

1 j 6 

(P^,G^)  plane  (for  each  f obtain  curves  parametrized  by  e) 

b)  for  each  value  of  G sum  all  values  of  P (over  all  curves 
parametrized  by  e and  over  all  P^G^  planes) 

(thus  we  get  a curve  in  the  P,  G plane  parametrized  by  f) 

c)  repeat  a)  and  b)  for  all  values  of  f to  obtain  a family  of 
curves.  Then  given  any  value  of  G and  f obtain  a unique 
value  of  P. 

From  a more  operational  (and  computer  oriented)  point  of  view  imagine 
the  f,  a,  e region  divided  up  into  resolution  cells  (of  size  *f;  A a, 

A e)  and  the  P,  G region  divided  into  G bins  of  width  AG  (here  consider 
only  one  of  the  P,  G planes).  The  various  displays  are  then  generated 
according  to  how  P is  binned.  More  specifically  consider  three  types 
of  binning  denoted  by  CAA,  CIA  and  All. 


CAA  binning 

One  of  the  3 variables  in  the  f,  a,  e region  is  held  constant  and 
the  G-bin  is  infinitely  wide,  i.e.  the  only  summation  of  P is  over 
the  various  P^,G^  regions  ( irregardless  of  value  of  G).  This  type 
binning  is  typified  by 


P vs 


(e,a) 


const 


f 


The  significance  of  the  symbol  CAA  is  that  1 variable  in  the  f,a,e 
region  is  held  constant  and  the  other  two  are  arguments  (independent 
variables  ) . 


CIA  binning 

One  of  the  3 variables  in  the  f,  a,  e region  is  held  constant;  bin  P 
over  another  one  of  these  variables  into  G-bins  for  each  value  of 
the  third  variable.  This  type  binning  is  typified  by 


P vs 


(G,e) 


const 


f 
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C and  A stand  for  Constant  and  Argument  as  for  CAA:  the  I stands 

for  "integration". 

All  binning 

Bin  P over  two  of  the  f,  a,  e variables  into  G-bins  for  each  value 

of  the  third  (independent)  variable.  This  type  binning  is  typified  by 

P vs  G,f 

A subroutine  called  BIN  (Part  II,  PML  169)  is  used  to  do  this  binning. 
However,  BIN  is  more  general  than  is  typified  by  the  examples  in  that  there 
are  no  preferred  variables  in  the  f,  a,  e region.  Any  may  be  C or  A or  I, 
provided  of  course,  that  the  data  allows  them  to  be. 

Once  the  flux  tubes  have  been  "binned"  in  the  desired  fashion, 
the  resulting  information  can  be  displayed.  For  example,  the  usual 
ionogram  which  belongs  to  display  type  4 (P  vs  G,f)  can  be  produced. 

At  present  there  are  available  two  ways  of  making  such  displays.  The 
first  is  produced  on  a printer  wherein  backscatter  power,  P , is 
printed  as  either  a single  code  symbol  which  represents  the  value  of 
P or  as  a floating  point  number.  The  position  of  the  P-value  on  the 
printed  page  gives  its  corresponding  group  path  delay,  G,  and  frequency, 
f,  values.  The  code  symbol  scheme  is  preferable  for  a qualitative 
look  at  the  data,  for  an  example  see  figure  4.2.  The  floating  point 
number  scheme  gives  quantitative,  but  difficult  to  digest,  results. 

This  type  display  is  produced  using  subroutine  PRINT1,  (Fart  II,  PML  I70). 

The  other  type  display  is  a true  intensity  display  using  a CRT 
plotter  to  produce  intensity  variations  proportional  to  P as  a function 
of  position  representing  G and  f,  for  example.  This  type  display  is 
produced  by  subroutine  CRT1  (Part  II,  PML  168).  For  examples  see 
figures  4.3  and  4.4.  The  algorithm  for  producing  the  intensity 
variations  is  the  same  as  that  reported  on  in  Stephenson,  Georges  (lyfay). 

There  are  several  ways  of  normalizing  (or  distorting)  the  values 
of  P depending  on  the  system  which  is  being  simulated.  In  Figure  4.4 
the  P values  are  normalized  to  the  largest  P value  (the  largest  value 
becomes  1)  at  each  frequency.  The  various  discrete  intensity  levels  are 
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Tonogram  Sample 


related  to  one  another  in  logarithmic  fashion.  For  example,  if  I 

max 

the  highest  intensity  value,  the  other  values  are  given  by 


is 


I. 

1 


I 

max 


, i = 1,  N 


where  N is  the  number  of  intensity  levels  and  f is  a factor  (>1)  to  be 
specified  by  the  user.  At  present,  the  number  of  intensity  levels 
which  can  be  displayed  is  11  going  from  white  to  black.  The  P value  to 
be  displayed  is,  of  course  "digitized"  into  the  appropriate  intensity 
level.  If  P falls  below  the  minimum  intensity  level  given  by 

-N 

I . = I f , 

min  max  ’ 

the  P value  is  not  displayed  (appears  as  white).  In  figure  4.4,  a curve 
showing  the  relative  values  of  the  maximum  P values  for  each  frequency 
is  superimposed  on  the  intensity  plot.  Also  shown  is  a calibration 
scale  . 

In  addition  to  the  various  "io no grams"  which  can  be  produced 
through  a suitable  choice  of  BIN  values  (see  PML  169  for  details), 
several  other  display  subroutines  have  been  developed  for  the  extraction 
of  information  from  "raysets"  and/or  "flux  tubes".  Refer  to  Part  II, 

PML  162  and  PML  164  for  examples.  The  following  diagram  shows  the 
information  flow  and  processing  required  for  various  displays  (Figure  4.5). 
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Figure  4.5  Information  Flow  Diagram  for  Ionogram  Synthesis 


Chapter  V 


BACKSCATTER  ANALYSIS 


Once  backscatter  ionograms  have  been  computed  they  are  correlated 
with  the  electron  densities  which  produced  them  to  find  out  which 
ionogram  characteristics  are  good  indicators  of  particular  electron 
density  characteristics.  For  the  present , group  path  minimum  trace 
ionograms  are  being  used  for  this  purpose;  but  eventually  characteristics 
of  the  complete  backscatter  ionograms  will  also  be  used. 

To  determine  which  ionogram  characteristics  should  be  used  in 
predicting  electron  density  characteristics,  a multiple  linear 
regression  analysis  program  was  written.  This  program  MLRA  also  com- 
putes a standard  error  of  estimate  and  the  coefficient  of  multiple 
correlation.  Using  the  coefficient  of  multiple  correlation,  the  effect 
of  an  individual  term  can  be  measured.  Details  of  program  MRLA  can  be 
found  in  PML  I55,  Part  II. 

Electron  density  characteristics  will  be  determined  for  any  given 
azimuth  from  plots  produced  by  program  S2P0BL . 

At  the  present  time  only  limited  use  has  been  made  of  program 
MRLA,  but  it  will  become  a part  of  a system  of  programs  designed  to 
determine  a polar  trough  ionosphere  given  a backscatter  ionogram. 
Ionograms  will  be  broken  down  into  general  classes  based  on  large  scale 
features.  A trial  electron  density  will  then  be  predicted  using  the 
regression  coefficients  for  that  particular  class  of  ionogram.  The 
electron  density  will  then  be  used  to  produce  a synthetic  backscatter 
ionogram  using  either  the  two-  or  three-dimensional  ray  tracing  approach. 
(For  sharp  gradients  the  three-dimensional  approach  must  be  used.)  Based 
on  the  synthesized  ionogram,  the  electron  density  model  will  be  modified 
in  proportion  to  the  regression  coefficients  and  the  process  will  be 
repeated . 
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NAME:  Ell+994,  revision  1,  subroutine  PML  127 

CATEGORY:  Electron  Density  Subroutine  for  Ray  Tracing  Program 

TITLE:  Mass  Storage  Electron  Density 

LANGUAGE:  CDC  extended  Fortran  - version  k 

PROGRAMMER:  B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc, 

DATE:  December  3 1 , 1975 


DESCRIPTION 

The  electron  density  subroutine,  Elh^U , has  been  revised  to  accept  mass 
storage  data  records  directly  from  preprocessing  program  S2PPR  (See  PML  136) 
instead  of  reformating  them  to  convert  to  mass  storage.  The  mass  storage 
record  has  been  dimensioned  in  a more  efficient  manner  and  two  mass  storage 
records  are  needed  per  three-dimensional  electron  density  block  to  circumvent 
a CDC  system  problem  encountered  in  using  many  random  access  storage  records. 
This  subroutine  can  handle  an  arbitrarily  large  data  base  although  the  largest 
that  has  been  used  so  far  is  1.8  million  words.  This  new  version  of  E1^99^ 
when  used  in  conjunction  with  program  S2PPR  eliminates  the  need  for  program 
RETAPE  (PML  13 3 ) • 

Provisions  for  unequally  spaced  height  entries  have  been  made. 


PRSCSDI1C  PA^£<.BI>IiK-i'iCT  FILKE9 
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INSTRUCTION  SET 

The  use  of  the  revised  subroutine  Elh99^  differs  from  the  original  only  in 
that  the  random  access  mass  storage  is  refered  to  as  TAPEO.  TAPE7  is  no 
longer  needed.  Details  of  the  structure  of  TAPE6  will  be  given  under  FILE 
DESCRIPTIONS . 

STORAGE  REQUIRED 


This  revision  of  subroutine  El499^  uses  more  core  storage  than  the  original. 
This  is  mainly  due  to  the  increased  size  in  the  electron  density  array  brought 
in  for  each  block.  This  was  seen  as  necessary  from  an  overall  efficiency  of 
running  standpoint.  In  the  original  configuration  because  of  the  required 
overlap  between  regions,  only  U0.5  percent  of  the  array  brought  in  represented 
new  electron  density  values.  In  the  present  configuration  this  has  been 
increased  to  5^.5  percent.  This  increased  efficiency  was  needed  since  we  are 
now  dealing  with  arrays  of  a size  that  can  fill  working  disk  storage.  The 
increase  in  core  storage  required  is  about  20,000  octal  words. 
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ALGORITHM 

The  interpolation  computation  is  the  same  as  used  in  the  original  version 
except  that  provision  has  been  made  for  varying  the  increment  used  in  height. 

This  means  that  in  the  height  direction  provision  was  made  to  use  Lagrangian 
interpolation  with  unequally  spaced  data.  This  has  caused  considerable  change 
to  subroutine  INTER3.  Due  to  those  changes  and  the  fact  that  the  existing 
equations  in  INTER3  have  not  been  documented,  the  complete  equation  set  will  be 
given  here . 

From  a three-dimensional  table  of  plasma  frequency,  the  value  of  the  plasma 
frequency  and  its  partial  derivatives  in  each  of  the  three  dimensions  is  to  be 
calculated.  In  two  of  these  dimensions,  0 and  0,  data  is  given  at  evenly  spaced 
intervals.  In  the  height  direction,  h,  the  data  is  given  unequally.  The  inter- 
polation form  used  is  Lagrangian.  The  plasma  frequency  is  interpolated  linearly 
in  0,  and  quadratic  in  h and  0.  Derivatives  are  computed  using  finite  differences 
of  four  points  except  that  only  three  points  are  used  near  the  boundary  of  an 
array.  The  derivatives  are  then  interpolated  linearly  in  the  remaining  two 
dimens  ions . 


Definition 

f 


fH 


h 

0 


of 


terms : 

computed  plasma  frequency 
table  values  of  plasma  frequency 
height  above  the  earth's  surface 

dipolar  colatitude 


0 

j 

k 

m 


dipolar  longitude 
index  which  references 

index  which  references 

index  which  references 


height  i.e.,  h.  <h  < h . 

J _ J+1 

longitude  i.e.,  0^  < 0,  < 0^+^ 

colatitude  i.e.,  0 < 0 < © , 

’ m — — m + 1 


J 

K 

L 

A 0 
A $ 


number  of  entries  in  height 

number  of  entries  in  longitude 

number  of  entries  in  colatitude. 

difference  between  equally  spaced  colatitude  entries 
difference  between  equally  spaced  longitude  entries 
f , and  partial  derivatives  are  intermediate  computational  functions 
and  are  only  temporarily  defined  in  the  equation. 
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Computation  of  the  plasma  frequency,  f , at  (h,  0,  0) 


fp(h,0,(2) 


&<t 


{ (h-h|)(h-h.tl) 


f (hJ_I,©,«S) 


(h-h,.L)(h-hi+1) 


+ fth  9,«j 

OyrV^VrV  J 


J 


where 


f(h  ,©,«*)  = (2-\)[f1(h.,e,^k+1)  - f^h.,0,^)]  +A<t  • f^h.,0,^) 


and  similarly  for  f(lu  ^,9,0)  anci  f(h^+^,0,Q!) 


where 


fi<VeA>  = 


(9-9J(Q-Vi> 

2(A  <if 


EH<V9»-l'*k> 


^9"9m-l^e"9m+l^  f (h.,0  ,0  ) 
r H J m’  k' 


+ (e'9^1-(9'em)  fH(hj  ,9m+l,(^k) 

2(A«r 


f(h.,e,<z) 


and  similarly  for  f (h  ,9,0.  , ) and  variations  using  h.  and  h. 
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Computation  of  the  partial  derivative  of  plasma  frequency  with  respect  to 
colatitude  at  the  point  (r,  9,  <t) . 


f =1 


7)  0 2 <i(Ae) 


where 


5[  H<9,i>£,«)  + I 

J + l J 


H Jr  (e’V\) + ^-\)(yr  -s©1 


^fi 


7*f, 


*f. 


where 


lh-  (e,h  <2  ) = Ae^fg  (©  h <t  ) + (e-e  )(^2  (e  ,h  J ) -}jg  (e  h ,0  )) 

?>©  J m J k mlJk^e  m J k 


7)  f 


1 is  defined  similarly  for  h , and  0 

~ •'  1 -i-  1 


?Q 


j+1  k+l 


• ! 

■ 

^ 1 


where 


'WV  ■ VWy  V - *h<®— i£  ■ 2 2 


'3fH(ePhj^k}  + UV02'W  ' if  m = 1 


r «wv*k>  - £„«WvV  - £„<Vy  V i£  ■ < >•-> 


3e 


' fH<eL-2’hj'0k>  - Wi'VV  + 3£H(eL,hr0k)  if  « - L-l 


J £ 

2 defined  similarly  for  hfi1  and  0,  , 

rr  J+1  k+1 


This  method  amounts  to  establishing  differences  either  side  of  the  point  and 
then  doing  a three  dimensional  linear  interpolation. 
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Computation  of  the  partial  derivative  of  plasma  frequency  with  respect, 
longitude  at  the  point  (r,  9,  d) 


to 


fp 
^ d 

where 


— 1— - (e.y*) + ir^h.(s§(e'hj+i'9)"M  <9’hj'8))  1 

2a©(A of  j+1  j 


H <».v«  • A9?r  W! + (8-8")(>-r  (e-*'V0)  (e"’bj’a) 

~p)  f is  defined  similarly  for  ?f  (9?h  ^,0) 

&d  ^ 

where 

*J±  (9 m,h .,d)  = Ad  ^(e  ,h  ,0k)  + (<H*k)(^L  (Vhj^k+1)  • if(em’hj’0k)) 


2>f 

'So 


1 is  defined  similarly  for  0^^  and  h . ^ 


where 


<VyV  ‘ £»«VVW  - £H<W«k-i>  l£  k 2 

7)  <2> 


■ - WW  + Wj’®^  - £H(e»-hj'»3>  I£  k ' 1 


„ I 

I 


5 f. 


,-)d 


U (Vj-V  1>  ■ £H(9»-VW  - 1£  k < K‘1 


' VVY®^'  ' l£H<VVVl>  + 5£H(er.'hi’aK>  l£  k ' K'‘ 


^ ^2  is  defined  similarly  for  h ^ and 

9 d J 


This  process  is  analogous  to  that  followed  for  the  partial  derivative  with 
respect  to  colatitude. 
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Computation  of  the  partial  derivative  of  plasma  frequency  with  respect  to 


he ight . 


- 1 

__B.  " — I — 

h A 0 -A0 


i [*<th  (e,h,<2  ) + (Q)-0k)M  (e,h,(2k+1)  ] 

■Ad)  b h % h 


where 

If  (e,h,®  ) = Ae^£i  (eh  a)  + (©-©)(  ^£1  (e  ,h,0  ) - ££l  (0  ,h,<t  )) 

^h  k ^h  m ’ k m ?»h  mfl  k t»h  " k 

^f  is  defined  similarly  for  ^f  (9,h,0  ) 


where 


£ <V‘*>  • £ + <£  < W’V  - |f 

j+1  J 

u 1 is  defined  similarly  for  9 . and  Q),  , 

rr  "+1  k+1 

where 


(V-J'4!,)  ' h -h.  , <fH«VVl'V  - fH<e»'hj-l'4k»  1£  J 2 2 

dh  j+1  J-l  J 


'(h.-h.  + h -h.  ) fH(0m'W 

J j-l  J+1  J-l 


h,  -h 
i + 1 i-1 


(h4l-h)(h-h  J 

J+1  J J J-l 


£H(e»'h2'«k> 


h - h. 


vvvv 


fH  "VVk> 
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Ih  (Vhj+i'*k)  " 


?h 


i rV  <£„(0»’V2A>  - V9.’ W>  1£  J ■=  J‘£ 

j+2  j 


V^T?  ' »v';>vv? 


h , “h . 
J+1  J 


h . -h . . 

j+i  j-i 


> WW 


if  j = J-l 


^ £2  is  defined  similarly  for  ©m+1  and  $k+1  • 

mT 


This  is  analogous  to  the  previous  partial  derivatives  except  that  provisions 
were  made  for  unequally  spaced  height  data. 
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SPECIAL  CAUTIONS  AND  FEATURES 


The  total  number  of  height  entries  must  not  exceed  200  entries.  The  total 
number  of  blocks  of  electron  density  data  must  not  exceed  98  because  of  the 
dimension  limit  of  199  random  access  mass  storage  records.  All  values  of  9 
and  0 are  assumed  to  be  computational  or  dipolar  coordinates. 

TIMING 


This  revision  of  Elb-994  will  take  slightly  less  execution  time  in  most  cases 
due  to  the  increased  data  block  size.  Since  there  are  fewer  colatitude  entries 
per  block,  ray  traced  at  azimuth  angles  heading  either  due  north  or  south  will 
take  slightly  longer.  If  the  fineness  of  the  grid  size  is  increased  the  runs  will 
take  more  time  since  the  electron  density  data  block  will  have  to  be  changed 
more  often. 

ERROR  MESSAGES 


No  error  messages  are  included  in  either  Elb-994  or  INTER3;  however,  since 
E 1499b  is  the  only  subroutine  of  RAYTRACEBL  or  RAYPL0T-2  to  use  mass  storage 
"reads"  and  "writes",  any  system  messages  dealing  with  mass  storage  will  refer 
to  actions  taken  by  Elb-99^* 

SUBROUTINES 

INTER3  This  subroutine  with  entry  point  INTER  interpolates  between  table 
entries  for  values  of  electron  density  and  its  derivatives  with  respect  to  r,  0, 
and  $ in  the  manner  described  in  the  ALGORITHM  section. 

ACCURACY 

Runs  on  the  new  version  of  Elb-99^  were  verified  against  runs  on  the  older  version. 
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FILE  DESCRIPTIONS 


Elbyyk  reads  data  from  TAPEb  which  is  a mass  storage  file  of  up  to  I99  records. 
This  file  is  created  by  the  electron  preprocessing  program,  S2PPR,  as  described 
in  PML  I36.  The  program  never  writes  on  TAPEb. 


TAPE6  This  file  consists  of  up  to  199  random  access  records  of  length 
ranging  from  12  to  13223  words  and  containing  the  following 
information: 

Record  1: 

LATMX,  LONMX,  LHTMX . THZO,  PHIZO,  HTZO,  DLTH,  DLPH,  DLHT , 

NAME,  NLAT,  NLON 

LATMX  - The  number  of  latitude  entries. 

LONMX  - The  number  of  longitude  entries. 

LHTMX  - The  number  of  height  entries.  (<c  200) 

THZO  - The  initial  colatitude  entry  in  radians. 

(This  is  the  lowest  colatitude  for  which  data 
is  available.) 

PHIZO  - The  initial  longitude  entry  in  radians. 

HTZO  - The  initial  height  entry  in  km. 

DLTH  - The  increment  in  colatitude  entries  in  radians. 

DLPH  - The  increment  in  longitude  entries  in  radians. 

DLHT  - The  increment  in  height  entries  in  km.  (Not  used.) 

NAME  - An  alphanumeric  identifier  to  be  printed  on  output. 

NLAT  - The  number  of  data  blocks  required  to  cover  the 

latitude  values. 

NLON  - The  number  of  data  blocks  required  to  cover  the 
longitude  values. 

NOTE:  NLAT  * NLON  should  not  exceed  9b. 


Record  2:  (HGT(l),  1=1,200) 

This  represents  the  table  of  height  values.  200  values 
are  read  in  although  only  the  first  LHTMX  of  them 
represent  legitimate  height  values. 


10 


Record  3: 
Record  4: 
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Not  used  or  generated. 

(THETA(l),  1=1,11),  (PHI(J),  J=l, 12), 

( ( (FH( I, K, j) , 1=1,11),  K= 1 , 200 ) , J=l,6)  or  a total 
of  13,223  words. 

THETA  - an  array  of  colatitude  values  in  radians, 
PHI  - an  array  of  longitude  values  in  radians. 

FH  - an  array  of  plasma  frequencies  in  MHz. 


Record  5:  ( ( ( FH( I, K, j) , 1=1,11),  K=l,200),  J=7,12)  or  13200  words 

This  with  record  4 represents  the  first  data  block. 

Subsequent  pairs  of  records  such  as  records  6 and  7,  8 and  9,  etc.  will  be 
repeats  of  records  4 and  5 for  subsequent  data  blocks.  TAPE6  can  have  a total 
of  98  blocks  or  up  to  I99  records.  The  total  number  of  blocks  available  is 
NLAT*NL0N.  Blocks  are  numbered  according  to  the  following  scheme. 

Ascending  0 A 


Block  1 


Records 

4 and 

5 


Block  NLAT  + 1 


Records 
2*NlAT+4  and 
2*NLAT+5 


0ver|lap|  areas 


B1 


V I 

1 

c 

~ 

C 1 

u - 

J 

A 

0) 

Block 

(NL0N-1)*NLAT  + 1 
Records 

2*(NLON-l)*NLAT+4  and 
2*(NL0N- l)*NLAT+5 


Block 

(NL0N- 1 )*NLAT  + 2 
Records 

2*(NL0N-l)*NLAT+O  and 
2*(NL0N-  1 )*NLAT+7 


Records 
£ '■NLAT+2  and 
2*NLAT+3 


Records 
4*NLAT+2  and 
4*NLAT+3 


Block  NL0N*NLAT 
Records 

c-»NL0N>NLAT+c  and 
2 * N L0N*N  LAT+3 
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DECK  SET  UP 


This  is  the  deck  set  up  for  running  the  raytracing  program  with  El4yy4  and 
plotting  the  results  using  RAYPLUT-t:  (PML  126). 

BARRT,  TyOO , CM100000 . PROS//'  NAME 

ATTACH(TAPEb,VAR2DATAX.j6938l6, ID=LANGW) 

ATTACH(BMA1N, BMAINX36938I8, ID=LANGW ) 
ATTACH(BINDEX,BINDEX36938l8,ID=LANGW) 

ATTACH( BSUBS , BSUBSX36938I8, ID=LANGW ) 

REQUEST (TAPE3,*?F) 

LDSET( PRESET =ZERO) 

LOAD(BMAIN) 

SLOAD ( B INDEX , AHWFNC ) 

SLOAD( BSUBS, E1^99  • j INTERS, ELECT 1 , DIPOLY) 

EXECUTE (NITIAL) 

CATALOG  ( TAPE 3 , PLOTTAPEXy6938l 8,  ID  =LANGW , RP  =999 ) 

REWIND  (TAPE 3) 

REWIND  (TAPE6) 

RETURN ( BMAIN , B INDEX ) 

ATTACH (BPLT , BRAYPLT2X3693818, ID=LANGW ) 

ATTACH ( PEN, ONLINEPEN ) 

LIBRARY(PEN) 

LDSET( PRESET=ZERO ) 

LOAD (BPLT) 

SLOAD ( BSUBS , E 1 6996, INTER3 , ELECTl ) 

EXECUTE (RAYPLT2) 

DISPOSE(PLOT,*OL) 

EXIT. 

D IS  POS  E ( PLOT , *OL  ) 

7/8/9 

Data  for  raytrace 

7/8/9 

Data  for  plotting 

6/7 / 8/9 


L 
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NAME: 
CATEGORY: 
TITLE: 
LANGUAGE : 
PROGRAMMER: 


DATE: 


E14994,  revision  2,  subroutine  PML  127 
Electron  Density  Subroutine  for  Ray  Tracing  Program 
Mass  Storage  Electron  Density 
CDC  Extended  Fortran  - version  4 

B.M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
Revision  2 by  L.  Calabi  and  I.B.  Jarvis 
January  4,  1977 


DESCRIPTION 

This  program  has  been  modified  to  utilize  the  array  for  the 
ionospheric  model  which  has  been  packed  to  4 elements  per  computer 
word  as  described  in  the  program  write-up,  S2PPR,  revision  1.  On^y 
those  elements  required  by  the  interpolation  subroutine,  INTER3, 
are  unpacked  by  a new  subroutine  called  FUNP4. 


ALGORITHM 


Given  a packed  word 

z = ° 2 '4'>  + z2  • 2J°  + z,  • £ ' + z^ 


it  is  easy  to  obtain  each  z^.  Algebraically  one  could  compute,  for 
instance, 

15  15 

Z,=  Z - [z/ 2 y]*2  where  brackets  indicate  the  integral  part. 


On  the  CDC66OO  we  have,  however,  two  very  fast  operations  which 
yield  the  z^,  in  the  order  needed,  in  a loop:  rotation  and  masking 
Thus,  by  rotating  (left)  z by  I5  bits  and  masking  all  but  the  I5 
right-most  bits  we  obtain  z^.  Repetition  of  the  same  sequence  of 
operations  yields  zr , z.  and  z in  sequence. 

We  then  set 


y^  = Zj^/1000. 

y . = z./lOOO.  if  z.  < 16384  i > 1 

i 1 1 

= (z^  - 16384)/1000.  otherwise 
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and  finally 


i > 1 


In  order  to  determine  which  packed  word  z = KOMP(L,I,K) 
to  use,  remember  that  KOMP(L,I,K)  has  been  obtained  by  packing 
FH(L,  4l  +1,  K),  FH(L,  4l  + 2,  K),  FH(L,  4l  +3,  K)  and  FH(L,  4l  + 4,  K 

The  subroutine  FUNP4,  when  called  with  arguments  LL,JJ,KK,  does 
not  unpack  the  whole  array  KOMP  but  only  a few  elements. 


When  an  interpolation  is  required  around  elements  whose  indices 
are  LL,JJ,KK,  at  most  4 values  of  each  index  (1  before  and  2 after) 
would  be  required  for  the  interpolation.  However  since  4 values  of 
the  JJ  index  are  stored  per  computer  word,  it  might  be  necessary  to 

unpack  2 of  these  words  for  each  value  of  the  other  2 indices  to 

obtain  the  required  values  on  either  side  of  the  JJ  index. 

JJ-2 

Let  JJ^  = integral  part  of  — ^ — + 1 

and  JJ^  = integral  part  of  + 1 • 


Let  LM  = LL-2  unless  LL  < 2,  then  LM  = 0 
KM  = KK-2  unless  KK  < 2,  then  KM  = 0 . 

Then  we  unpack  only  KOMP  (L,I,K)  with 

LM  + 1 < L < LM  + 4 
JJq  < I < JJX 

KM+i<K<KM+4, 

storing  the  unpacked  values  in  an  array  GH  of  dimensions  (4,8,4). 

If  we  set 

JJ-2 

JM  = (integral  part  of  — r — ) * 4 

then 

GH(A,B,C)  = FH(A-LM, B-JM, C-KM) 

in  the  interpolation  subroutine.  All  references  to  the  old  FH  array 
are  changed  to  GH  and  the  indices  L,  J and  K must  be  changed  to  L-LM, 
J-JM  and  K-KM. 
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The  only  other  modifications  made  to  this  program  are: 

1)  Remove  the  FH  array  from  COMMON/DENX/  and  add  the  GH  array, 
in  subroutines  E14994  and  INTER3- 


2)  Change  the  number  of  words  to  read  from  mass  storage  in 

El 4994  to  6623. 


3)  CALL  FUNP(LL, JJ, KK)  before  any  interpolation  is  carried  out, 
even  when  it  is  not  necessary  to  read  a new  block  of  mass 
storage  . 


STORAGE  REQUIRED 


The  total  storage  required  for  this  revision  used  with  the  ray  trace  program 
is  72000  octal  words  of  core  storage. 


TIMING 


CP  time  for  rays  traced  for  2 hops  in  the  test  run  varied  from 
1.9  seconds  to  6.2  seconds. 


Because  of  the  time  required  for  unpacking,  CPA  time  is  slightly 
greater  in  the  modified  program.  However,  since  the  information  read 
from  mass  storage  is  packed  into  1/4  as  many  words,  10  time  is 
considerably  shortened.  Total  run-time  was  reduced  to  52-5  °/o  • 
Storage  requirements  are  decreased  from  142,000  octal  to  72,000 
octal.  With  both  time  and  space  reduced  the  total  cost  of  the  runs 


decre 

ased  to 

37-1 

% . The 

following  table 

shows 

the  aci 

Or  i 

[ginal 

Program 

Rev 

is  ion 

1 

CPA 

74.659 

sec . 

$1,530 

103.141 

sec  . 

$2,114 

10 

241 .885 

sec . 

1.620 

63.201 

sec  . 

.423 

CM  13 

,927.915 

KWS 

15- -320 

3917.858 

KWS 

4.309 

Cost 

of  job 

$18,471 

$6,847 
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NAME: 


CATEGORY: 

TITLE: 

LANGUAGE: 

PROGRAMMER: 

DATE: 


S2PPR,  revision  0,  program,  PML  13o 

Preprocessing  program  for  a ray-trace  ionospheric  model 
Sine  Square  Preprocessing  Program 
CDC  Extended  Fortran  - Version  1* 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
December  31;  1975 


DESCRIPTION 


] 


t 


This  program  is  designed  to  replace  programs  SM0D2  and  COMBSNC  written  by 
ARCON  Corp.  in  1972  and  to  extend  the  capabilities  in  modeling  an  arctic 
ionosphere  usable  by  the  AFCRL  ionospheric  ray-trace  program.  ScPPR  generates 
a three-dimensional  array  of  plasma  frequencies  for  an  arbitrarily  defined 
range  of  heights,  dipolar  colatitudes,  and  dipolar  longitudes.  This  array  is 
generated  from  a table  of  specifications  of  profiles  composed  of  up  to  5 sine 
square  segments  with  a Chapman  layer  composing  the  upper  ionosphere.  The  sine 
square  segments  are  specified  by  a plasma  frequency  and  the  height  at  which 
this  frequency  occurs.  Profiles  can  be  specified  for  up  to  25  values  of 
colatitude  in  the  dipolar  magnetic,  accurate  geomagnetic,  or  geographic  coordinate 
system.  Variations  with  longitude  are  then  given  by  tables  of  additive  and/or 
multiplicative  constants  on  an  8 x 8 grid  in  colatitude  and  longitude.  In 
addition  the  same  data  may  be  given  for  a perturbation  model  to  be  superimposed 
on  the  existing  sine  square  model.  Transition  between  tabular  values  is  also 
taken  to  be  sine  square  in  nature. 


The  size  of  the  three-dimensional  array  of  plasma  frequencies  is  no  longer  limited 
by  the  amount  of  core  storage  available  but  can  be  extended  up  to  k million 
points  since  the  program  has  been  adapted  to  generate  random  access  permanent 
file  data  in  blocks  of  a size  that  can  be  handled  by  the  ray-trace  program  in 
a more  modest  core  area  than  the  previously  mentioned  programs.  Height  specifi- 
cations need  not  be  at  fixed  intervals  over  the  entire  array,  but  may  be  varied 
so  that  three  unique  height  increments  may  be  used  on  any  given  vertical.  This 
feature  allows  a finer  height  increment  in  the  auroral  E layer. 
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INSTRUCTION  SET 


To  use  S2PPR  the  user  must  specify  the  size  of  the  three-dimensional  plasma 
frequency  array  to  be  generated.  Sample  input  is  given  in  Attachment  1 to 
correspond  to  the  description  given  below.  This  information  is  supplied  on  the 
first  two  data  cards  which  are  read.  The  first  card  is  read  with  the  format 
(3I5>A5jbF10.3)  and  contains  the  following  information: 

Card  1 


Cols 

1 - 

5 

NLONMX 

Cols 

6 - 

10 

NLATMX 

Cols 

11  - 

15 

NHTMX 

Co  Is 

16  - 

20 

NAME 

Cols  21  - 30  PHZO 
Cols  jl  - 40  THZO 
Cols  hi  - 50  HTZO 

Cols  51  - 60  DLPH 
Cols  61  - 70  DLTH 


The  number  of  values  of  dipolar  geomagnetic 
longitude  desired.  (15) 

The  number  of  values  of  dipolar  geomagnetic 
colatitude  desired.  (15) 

The  number  of  values  of  height  desired.  (15) 

A 5 character  name  by  which  the  data  set  is  to  be 
known.  (A5)  This  name  will  eventually  appear  on 
ray-trace  printout  to  specify  the  electron  density 
mode  1 used  . 

Tne  starting  value  of  dipolar  geomagnetic  longitude 
in  degrees.  (FlO.3) 

The  starting  value  of  dipolar  geomagnetic  colatitude 
in  degrees.  (FlO.3) 

The  starting  value  of  height  above  the  earth's  surface 
in  km.  (F10.3)  This  value  is  no  longer  used  since 
the  feature  of  variable  height  increments  has  been 
added . 

The  increment  in  dipolar  geomagnetic  longitude  in 
degrees.  (F10.3) 

The  increment  in  dipolar  geomagnetic  colatitude  in 
degrees.  (F10.3) 

The  increment  in  height  in  km.  (F10.3)  This  value 
is  no  longer  used  since  the  feature  of  variable 
height  increments  has  been  added. 


Cols  71-80  DLHT 
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Card  2 


This  card  is  for  data  specifying  the  variable  height 
increments  and  is  read  with  the  format  (6F6.2). 


1 

Cols 

1 - 

6 

HB0T(1) 

- The  starting  value  of  height  in  km. 

Cols 

7 - 

12 

HINC(l) 

- The  increment  in  height  in  km.  to  be  used 
above  HBOT(l).  (F6.2) 

r 

Cols 

13  - 

18 

HB0T(2) 

- The  value  of  height  at  which  the  height 
increment  is  to  be  changed  in  km.  (F6.2) 

> 

Cols 

19  - 

24 

HINC(2) 

- The  increment  in  height  in  km.  to  be  used 
above  HB0T(2).  (F6.2) 

Cols 

25  - 

30 

HB0T(3) 

- A quantity  analogous  to  HB0T(2). 

Cols 

31  - 

36 

HINC( 3 ) 

- A quantity  analogous  to  HINC(2). 

Next  the  user  must  specify  the  model  of  the  ionosphere  to  be  used  in  generating 
the  array.  This  is  done  by  entering  tables  of  values  for  colatitude  versus 
plasma  frequency  or  altitude.  Separate  tables  are  entered  for  the  variation 
of  plasma  frequency  of  a certain  layer  and  the  altitude  at  which  that  plasma 
frequency  occurs.  Tables  are  also  entered  for  h,,  the  bottom  of  the  ionosphere, 
and  the  upper  limit  of  the  ionosphere.  This  is  the  "background"  model 

for  all  longitudes  which  may  then  be  modified  to  give  a variation  in  longitude 
by  additional  input.  The  first  card  needed  in  this  effort  is  a card  telling 
the  number  of  sine  square  segments  to  be  used  and  the  coordinate  system  in  which 
the  data  is  given. 


Card 


Cols  1 - 6 NS  IN 


Cols  7 - 12  NTHET 


- The  number  of  sine  square  segments  to  be  used 
to  model  the  area  below  the  F- layer  maximum. 

This  number  must  be  between  1 and  5.  (lb) 

- This  number  specifies  the  coordinate  system 
in  which  the  input  tables  are  given. 

If  NTHET  = 1,  data  is  in  the  dipolar 
geomagnetic  system 
= 0,  data  is  in  the  accurate 
geomagnetic  system 

= -1,  data  is  in  the  geographic  system. 


a :M 
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The  layer  parameters  themselves  are  then  supplied  by  tables  composed  of  a 
card  which  tells  the  number  of  table  entries  followed  by  cards  containing  the 
table  entries  themselves.  Tables  are  entered  in  the  order  of:  plasma 

frequency  for  the  1st  sine  square  layer,  plasma  frequency  for  the  2nd  sine 
square  layer,  etc.;  then  height  for  the  base  of  the  1st  sine  square  layer, 
height  for  the  top  of  the  1st  sine  square  layer,  height  for  the  top  of  the 
2nd  sine  square  layer,  etc;  and  finally  height  beyond  which  the  model  is 
undefined.  Plasma  frequencies  are  given  in  MHz  and  heights  are  given  in  km. 

Card  sets  for  each  layer  parameter  have  the  following  format  where  I represents 
the  Ith  layer  parameter. 


1st 

card 

in 

set 

Cols 

1 ■ 

■ 6 

LATMAX(l) 

- The 

number  of  table  entries  used  to 

specify 

the 

Ith  layer  parameter  (Id).  Must 

be  no 

larger  than  25 . 

2nd 

card 

in 

set 

Cols 

1 

- 6 

THETA ( 1 , 

I)-  The 

1st  colatitude  entry  in  degrees 

for 

the 

Ith 

layer  parameter  table.  (F6.2) 

Cols 

7 

- 12 

FH(1,I) 

- The 

value  of  plasma  frequency  or  height 

at 

the 

previous  colatitude.  (F6.2) 

Cols 

13 

- 18 

THETA (2, 

I)-  The 

2nd  colatitude  entry  in  degrees 

for 

the 

Ith 

layer  parameter  table.  (F6.2) 

Cols 

19 

- 24 

FH(2,I) 

- The 

value  of  plasma  frequency  or  height 

at 

the  previous  colatitude.  (F6.2) 

These  entries  are  repeated  up  to  6 entries  per  card  for  as  many  cards  as  are 
required  for  LATMAX(l)  entries. 

NOTE:  Be  sure  to  include  a decimal  point  in  all  numbers  except  those  with  I 

formats . 

A note  on  the  values  which  can  be  used  for  FH  and  H:  A zero  value  may  be  given 

to  any  plasma  frequency  and  two  consecutive  layers  may  have  the  same  value 
(which  effectively  gives  a constant  layer),  but  no  values  of  height  except  H 
may  be  zero  and  consecutive  layer  height  values  must  have  an  increase  over  the 
next  lower  layer  although  the  increase  may  be  small.  Values  given  in  the  tables 
represent  the  ends  of  a sine  square  curve  which  will  have  a zero  derivative. 
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This  tabular  data  can  then  be  varied  with  longitude  using  an  8 x 8 grid  of 
additive  modifying  values  and/or  8 multiplicative  modifying  values  for  each 
quantity  to  be  varied.  Interpolation  between  modifying  values  is  sine  square 
in  nature.  While  there  are  only  8 entries  in  the  addition  and  multiplication 
tables,  10  values  of  colatitude  and  longitude  must  be  specified  to  give  the 
boundaries  of  the  modified  area  where  additive  values  become  zero  and  multi- 
plicative values  become  1.  The  figure  below  illustrates  a modification  region. 


The  first  card  to  be  inputed  for  the  longitudinal  variation  is  a signal  card 
to  tell  which  quantities  are  to  be  varied. 

Next  Card  This  is  a signal  card  to  tell  which  layer  quantities  are  to  be 

varied  with  longitude  and  what  kind  of  a variation  this  is  to  be. 

Cols  1 - 60  (NON(l),  I=l,2*NSIN+2)  where  values  are  read  in  the  format 

(1215)  or  a layer  signal  every  5 columns,  right  justified. 
If  NON(l)  =0,  no  0 variation  is  to  be  given  for  the 
Ith  entry. 

= 1,  the  0 variation  is  to  be  given  by  an 
additive  8x8  grid  for  the  Ith  entry. 
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= 2,  the  0 variation  is  to  be  given  by  an 
additive  8x8  grid  and  8 multiplicative 
values  for  the  1th  entry. 

= 3>  the  0 variation  is  to  be  given  by  8 
multiplicative  values  for  the  Ith  entry. 


The  signals  are  entered  in  the  order  in  which  input  is  given  in  the  original 
table  that  is: 


£l>  f2> 


fNSIN’  V *V  h2’  h 


NS  IN*  Vx  Wh6re  NSIN  iS 


the  total  number  of  sine  square  segments  to  be  used.  For  each  non  zero  entry 
of  NON  a set  of  layer  modification  cards  must  follow.  These  sets  must  be  in 
the  order  of  their  signals,  i.e.  layer  modification  cards  for  f^  comes  before 
layer  modification  cards  for  h , etc. 


Layer  Modification  Cards  For  each  layer  to  be  modified,  a set  of  cards 

must  be  included  to  specify  the  variation.  The  variation  may  be  made  by  adding 
a quantity  (positive  or  negative)  to  the  existing  layer  value,  by  multiplying 
the  existing  layer  value  by  a factor,  or  by  adding  a quantity  to  the  existing 
layer  value  and  then  multiplying.  The  details  of  this  operation  are  given  in 
the  ALGORITHM  section  on  page  9. 


Layer  modification  card  1 (10F8.0) 

(PHENT(K, i),  K=l,10)  - This  is  the  table  of  0 values  in  degrees  for 

the  Ith  additive  and  multiplicative  variation. 

The  first  and  last  values  represent  the  boundaries 
where  the  additive  variation  returns  to  a value 
of  zero  and  the  multiplicative  variation  returns 
to  a value  of  one.  All  ten  entries  must  be 
supplied . 


Layer  modification  card  2 (10F8.0)  Used  only  if  an  additive  variation  is 

desired  i.e.  NON(l)  = 1 or  2. 

(THENT(L, I),  L=1,10)  - This  is  the  table  of  9 values  in  degrees  for  the 

Ith  additive  variation.  As  above,  the  first  and 
last  values  represent  the  boundaries  where  the 
additive  variations  returns  to  a value  of  zero. 
This  card  is  supplied  only  if  an  additive 
variation  is  desired  since  the  multiplicative 
variation  has  no  © dependence.  All  ten  entries 
must  be  supplied. 
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Layer  modification  card  3 (8F10.0)  Only  for  additive  variation.  Omit 

if  NON(l)  = 3. 

(AD(L,2,l),  L=2,9)  - This  is  the  additive  variation  for  the  second 

0 entry  and  the  2nd  through  the  9th  8 entries, 
(it  is  assumed  to  be  zero  for  L = 1 and  L = 10.) 
Entries  will  be  in  MHz  or  km  depending  on 
whether  the  Ith  quantity  is  a plasma  frequency 
or  a height.  All  eight  values  must  be  supplied. 

Next  7 layer  modification  cards  (8F10.0)  Only  for  additive  variation. 

Omit  if  NON(l)  = 3. 

(AD(L,K,I),  L=2,9)  - This  is  the  same  additive  variation  as  above 

but  for  the  Kth  0 entry.  K varies  from  3 to  9 
in  the  7 cards.  All  8 of  these  cards  must  be 
supplied  to  give  the  8x8  additive  variation. 

Layer  modification  card  11  (8F10.0)  Only  for  the  multiplicative  variation. 

Omit  if  NON(l)  = 1. 

(FM(K,I),  K=2,9)  - FM  is  the  multiplicative  factor  for  the  Ith 

layer.  The  8 entries  correspond  to  the  0 values 
for  K = 2,9.  The  multiplicative  factor  is 
assumed  to  be  one  for  K = 1 and  K = 10.  The 
quantity  FM  is  dimensionless.  All  eight  values 
must  be  supplied. 

A set  of  layer  modification  cards  must  be  supplied  for  each  non  zero  NON.  To 
summarize : 


If  NON  = 

1 

2 

3 

the  following 
cards  must  be 
supplied 

0 variation  (card  1) 
0 variation  (card  2) 
8 Additive  cards 

(Cards  3"10) 

($  variation  (card  l) 
9 variation  (card  2) 
8 Additive  cards 

(Cards  3-10) 
Multiplicative  card 
(Card  11) 

0 variation  (card  1) 
Multiplicative  card 
(card  11) 

Interpolation  between  all  layer  modification  table  entries  will  be  sine  square. 
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Perturbation  Model  Input 


Input  for  the  perturbation  is  identical  to  the  input  required  for  the  original 
model.  The  first  card  is  analogous  to  Card  3* 

Cols  1-6  NSIN2  - The  number  of  sine  square  segments  to  be  used  to 

model  the  perturbation  below  the  F- layer  maximum. 
This  number  must  be  between  1 and  5-  (io) 

NOTE:  There  is  no  NTHET  entry  here  as  there  is  in  Card  3-  The  perturbation 

must  be  given  in  the  same  coordinate  system  as  the  original  model. 


The  tables  of  colatitude  versus  plasma  frequency  or  height  for  each  of  the 
2*NSIN2  + 2 layer  parameters  for  the  perturbation  model  are  then  entered  in  the 
same  manner  as  the  original  model.  For  each  table  the  first  card  gives  the 
number  of  entries  - LATMX2(l)  for  the  Ith  layer  parameter.  This  is  then  followed 
by  the  table  itself  with  up  to  6 entries  per  card.  The  order  in  which  the  tables 
are  entered  is:  f^  fNSIN2>  h2>  h3>  hNSIN^  ’ ^AX . 


These  tables  must  then  be  followed  by  a signal  card  to  tell  which  parameters  of 
the  perturbation  model  are  to  be  given  a 0 variation  and  if  it  is  to  be  additive, 
multiplicative,  or  both.  Those  parameters  to  be  modified  must  then  have  a set 
of  layer  modification  cards  supplied  as  described  on  pages  6-7* 


The  input  deck  will  then  be  composed  of  the  following  cards: 

Card  1 which  specifies  the  desired  data  output  file. 

Card  2 which  gives  the  height  variation  for  the  output  array. 

Card  3 which  gives  NSIN,  the  number  of  sine  square  segments  and  the 
coordinate  system  of  the  model  to  be  inputted. 

2*NSIN  + 2 card  sets  which  give  the  number  of  table  entries  and  the  tables 
for  each  layer  parameter. 

A signal  card  to  tell  which  model  parameters  are  to  be  modified. 

Layer  modification  cards. 

A card  which  gives  NSIN2,  the  number  of  sine  square  segments  in  the 
perturbation  model. 

2*NSIN2+2  card  sets  which  give  the  number  of  table  entries  and  the  tables 
for  each  layer  parameter  of  the  perturbation  model. 

A signal  card  to  tell  which  perturbation  model  parameters  are  to  be  modified. 

Layer  modification  cards  for  the  perturbation. 
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Output  The  printed  output  from  program  S2PPR  consists  of  a listing  of  the 

table  values  inputted  to  the  program  for  the  model  and  the  perturbation  and  the 
grid  parameters  of  the  three-dimensional  output  array.  A message  is  written  to 
indicate  that  the  coefficients  for  the  transformation  from  geographic  to  accurate 
geomagnetic  coordinates  has  been  read  in.  The  values  for  the  outputted  height 
array  are  listed  so  that  subsequent  plasma  frequency  data  can  be  located  for  a 
particular  height.  Some  printout  on  the  transformation  from  dipolar  to  accurate 
geomagnetic  coordinates  is  given  for  checking  purposes,  but  printout  would  become 
too  lengthy  if  all  transformations  were  given.  The  plasma  frequency  profile  with 
height  is  given  for  occasional  values  of  8 and  0.  The  8 and  $ values  listed  with 
these  profiles  is  dipolar.  Plasma  frequency  is  given  in  MHz. 

Any  other  output  found  is  probably  an  error  message  and  is  described  on  page  13. 
Sample  printed  output  is  given  in  Attachment  2. 

The  principal  output  of  S2PPR  is  the  plasma  frequency  data  file  for  use  by  electron 
density  subroutine  El499^  of  the  ray-trace  program.  (See  PML  127,  revision  l). 

The  data  file  which  is  referred  to  as  TAPE2  is  a random  access  mass  storage  file 
and  is  described  under  FILE  DESCRIPTIONS. 

STORAGE  REQUIRED 

The  storage  required  for  S2PPR  is  200000  octal  words  of  core  storage.  Almost 
half  of  this  storage  is  needed  to  store  one  data  block. 

ALGORITHM 

Unlike  S2M0D,  this  program  uses  a sine  square  interpolation  in  colatitude 
between  plasma  frequency  and  height  entries  as  well  as  for  interpolating  between 
additive  and  multiplicative  modifiers.  This  allows  us  to  enter  widely  separated 
values  of  colatitude  and  yet  not  suffer  the  effects  of  a quadratic  interpolation. 
The  manner  in  which  S2PPR  operates  is  as  follows: 
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A particular  grid  point  (0,0)  is  given  in  dipolar  coordinates.  This  is  then 
transformed  to  accurate  geomagnetic  coordinates  or  geographic  coordinates  or  it 
is  left  in  dipolar  coordinates  depending  on  which  system  the  original  model  is 
specified  in.  The  transformed  coordinates  are  then  used  to  make  a sine  square 
interpolation  on  the  values  of  f^,  f , f , etc.,  and  the  corresponding  height 
values.  These  values  are  then  used  to  generate  plasma  frequency  for  all  heights 
at  this  particular  (9,0)  point.  The  next  (0,0)  point  is  then  transformed  and 
the  same  operation  is  repeated.  When  the  plasma  frequencies  for  all  height  and 
colatitudes  have  been  generated  for  a particular  dipolar  longitude,  this  two- 
dimensional  array  is  then  written  out  and  the  next  value  of  longitude  is  dealt 
with.  The  flow  chart  in  figure  1 explains  the  sequence  of  the  interpolations. 

The  conversion  to  accurate  geomagnetic  coordinates  is  that  written  by  J.  Dryden, 
Geophysical  Institute,  Univ.  of  Alaska,  Oct.  1970 . 

The  height  profile  generated  for  a particular  (9,0)  value  is  composed  of  sine 
square  segments  below  the  F2  layer  and  a Chapman  layer  above  this  point.  Since  the 
equations  used  therein  have  not  been  documented,  we  have  included  them  here  for 
completeness . 

The  plasma  frequency  profile  is  composed  of  up  to  5 sine  square  segments  the  last 
of  which  is  assumed  to  be  the  F2  layer.  These  segments  may  cause  an  increase  or 
a decrease  in  plasma  frequency  as  shown  in  the  following  figure  where  the  number 


N 


In  the  following  equations  the  total  number  of  sine  square  segments  is  NSIN.  As 
noted  above,  the  values  for  f^,  f,  , ...,  h , h^,  h , etc.  are  values  that  have 
already  been  interpolated  for  particular  values  of  (9,0)  in  dipolar  coordinates, 
h indicates  the  present  value  of  the  height  above  the  earth's  surface. 
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0 ,0  ! 

D’  D ! 

/^THET\  1 

Convert  to 

\v,v)  geo-^— ■ 
graphic 

« - V 

1 

Convert  to  (0,0) 


in  accurate  geo- 
magnetic 


-3c- 

.jAl 


Call  ADDER  td  compute  additive  and 
multiplicative  variation  for  thds  (Q,0)  j 

1-. 


Locate  ent r ies / lnrERen inp§tQtable! 


\/ 


Interpolate  for  values  of  height  interval  of  the  first  sine  square 
for  the  model  and  perturbation  by  calling  FUNFH  and  FUNFH2,  respec 
Jihesevalues  will  include  any  layer  modifications . 


segment 
t ively . 


J = 1 : 


& 


h = H(J) 


1 


)oes  h\ 
Renter  a new 
•segment? 

No 


-Yes- 


Call  FUNFH  to  determine  the 
^bounds  of  the  new  interval 


I 


A 


Call  MU  to  determine  the 

plasma  frequency  at  (h ,0,0), 


5oes  n 

•Renter  a new  pert*.'- 
■■--Segment? 

No" 


Yes 


[~Call  FUNFH2  to  determine  the 
V bounds  of  the  new  perturhation 


interval . 


< 


T 


1 


Call  MU2  to  determine  the  pert- 
urbation plasma  frequency  at  (h,0,0) 

~ j: 


j Combine  the  plasma  frequency  to  determine 
j the  total  plasma  frequency  at  (h ,0,0). 

FTlSiri- ><, 


^ No 


Yes 


Figure  1.  Flow  chart  of  plasma  frqquency  profile  computation  for  a particular 
point  (0d,0d)  in  geomagnetic  dipolar  coordinates. 
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where  s^©)  = sin  (—  Q ^ _q 


_ 0 - <t. 

t )’  S2W  = sin  ( 2 <2.  .4: }i 

i+1  i J+l  J 


SPECIAL  CAUTIONS  AND  FEATURES 


The  total  number  of  heights  for  which  data  is  requested  should  not  exceed  200. 
The  number  of  values  of  0 and  (2  which  are  requested  can  vary  but  should  never 
require  more  than  99  data  blocks  to  be  generated.  The  following  table  should 
help  to  establish  such  limits: 


If  NLATMX  is  less 
than  or  equal  to: 


then  NLONMX  cannot  be  greater  than: 


11 

89U 

19 

kkh 

27 

300 

35 

219 

^3 

17U 

51 

156 

59 

129 

67 

ill 

lb 

102 

91 

8U 

99 

75 

115 

66 

131 

57 

155 

kQ 

195 

39 

267 

30 

355 

21 

795 

12 

NOTE:  The  program  will  not 

generate  values  for  latitudes 
that  are  beyond  those  given 
in  the  input  tables  but  will 
stop  and  print  an  error 
message . 
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TIMING 

The  timing  of  S2PPR  varies  with  the  size  of  the  output  array  desired.  For 
18  data  blocks  the  execution  time  was  101  seconds  or  approximately  5 1/2 
seconds  per  data  block. 

ERROR  MESSAGES 

PARAMETERS  OUTSIDE  LIMITS , NUMBER  OF  SINE  SQUARE  CURVES  = XXX  XXX 

This  indicates  the  number  of  sine  square  segments  specified  for  either  the 
model  or  the  perturbation  is  not  between  1 and  5-  The  first  number  given  is 
for  the  model  and  the  second  is  for  the  perturbation.  Check  to  see  that  these 
numbers  are  punched  in  the  correct  columns  or  that  the  input  deck  is  set  up 
in  the  correct  order.  This  will  cause  a program  stop. 

LAYER  XX  HAS  XXX  ENTRIES.  MODEL  = XXX  PERTURB.  = XXX. 

This  indicates  that  the  number  of  table  entries  from  the  Ith  layer  of  either 
the  model  or  the  perturbation  is  not  between  1 and  25.  The  additional  print 
out  allows  one  to  tell  if  it  is  the  model  or  the  perturbation  which  is  out  of 
range.  Check  to  see  that  these  numbers  are  punched  in  the  correct  columns  or 
that  the  input  deck  is  in  the  correct  order.  This  will  cause  a program  stop. 

ANGLES  OUTSIDE  RANGE  OF  IONOSPHERE 

THETA  = xxx. x PHI  = xxx.x  INDICES  ARE  xxx  xxx 

This  message  is  printed  out  when  the  9 value  of  the  model  or  the  perturbation 
is  not  in  the  given  table  range.  The  values  of  8 and  0 given  here  will  have 
been  converted  from  the  dipolar  system  to  the  system  of  the  input  tables.  The 
two  indices  given  are  for  the  block  index  of  the  output  array  --  the  first 
indicating  the  1st,  2nd,  etc.  block  in  the  9 direction  and  the  second  indicating 
the  1st,  2nd,  etc.  block  in  the  0 direction. 

HEIGHT  LAYER  INDEX  JJ  = xxx  HL  = xxx. xxx  HMAX  = xxx. xxx 


This  message  will  be  printed  out  twice  with  the  first  information  from  the  model 
and  the  second  set  of  information  from  the  perturbation.  JJ  indicates  the  height 
layer  index,  HL  indicates  the  height  for  which  information  is  being  sought,  and 
HMAX  indicates  the  maximum  height  for  which  the  model  exists  at  this  particular 
value  of  (9,0).  This  message  will  be  printed  out  whenever  information  is  sought 
outside  of  the  height  values  for  which  plasma  frequency  information  is  available. 
If  this  larger  height  is  desired,  simply  increase  the  value  of  HMAX. 
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ERROR  LATITUDE, LONGITUDE  xxx.xxx  xxx.xxx 

This  is  an  error  message  from  Che  subroutine  which  converts  geographic  coordinates 
to  accurate  geomagnetic  coordinates.  The  message  appears  if  the  inputted  latitude 
is  not  between  +90°  and  -90°  or  if  the  longitude  is  less  than  zero.  The  first 
quantity  listed  is  the  latitude  and  second  quantity  listed  is  the  longitude.  This 
message  should  not  appear  since  subroutine  DICOORD  should  check  for  this  before 
CORRGM  is  called.  The  subroutine  will  try  to  correct  the  longitude  by  adding  360° 
but  will  proceed  anyway. 


NO  TRIANGLE  FOR  XLAT,XLONG  = xxx.xxx  xxx.xxx 

This  may  occur  when  the  point  for  which  the  accurate  geomagnetic  coordinates  are 
desired  is  in  the  region  of  the  accurate  magnetic  pole.  The  region  is  divided 
into  triangles  having  the  pole  as  one  vertex.  If  a triangle  cannot  be  located,  it 
is  assumed  that  this  is  the  accurate  magnetic  pole  and  the  above  message  will 
appear  giving  the  coordinates  in  the  geographic  system  in  degrees.  No  value  is 
assigned  to  the  accurate  geomagnetic  longitude  in  this  case.  Computation  then 
proceeds  as  normal. 

Any  error  messages  referring  to  random  access  mass  storage  will  refer  to  the 
WRITMS  calls  given  in  S2PPR. 

SUBROUTINES 

S2PPR  This  is  the  main  program.  It  reads  in  all  data  cards,  sets  up 

the  0,  and  0 values  for  the  array  and  sequences  through  h,0,  and 
0 to  generate  the  output  data  block.  All  mass  storage  writes 
take  place  in  S2PPR . S2PPR  calls  ADDER,  C0RRGM2,  FUNFH,  FUNFH2, 
MTOG,  MU,  and  MU2 . 

ADDER  Given  a particular  value  for  0 and  0,  this  subroutine  will  determine 

any  quantities  that  should  be  added  or  multiplied  by  the  original 
model  to  give  a 0 variation.  Corrections  to  all  layer  specifi- 
cation e.g.  f^,  fg,  h_;,  h j , etc.  are  determined  for  the  (6,0) 
point  inputted  so  that  adder  is  only  called  once  for  a profil  . 

ADDER  is  called  by  S2PPR. 
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FUNFH  This  is  a function  which  gives  the  necessary  layer  parameters 

when  given  the  height  and  co latitude  indices.  This  function  is 
used  by  S^PPR  and  MU. 

MU  This  subroutine  determines  the  value  of  the  plasma  frequency 

using  the  sine  square  segments  or  the  Chapman  profile  for  a 
partii  alar  point  (r,  0,  0)  given  the  layer  parameters  as  a function 
of  0 and  0 . This  subroutine  is  called  by  S2PPR  and  uses  function 
FUNFH. 

DICOORD  This  subroutine  through  entry  point  MTOG  converts  a point  in 

colatitude  and  longitude  from  dipolar  geomagnetic  to  geographic 
coordinates.  This  subroutine  is  called  by  S2PPR. 


C0RRGM2  This  subroutine  takes  points  in  the  geographic  coordinate  system 
and  converts  them  to  accurate  geomagnetic  coordinates.  A call  to 
C0RRGM2  causes  the  transforming  array  to  be  read  in.  For  points 
to  be  converted,  a call  must  be  made  to  CORRGM.  This  subroutine 
is  called  by  S2PPR. 

FUNFH2  This  is  a function  which  gives  the  necessary  layer  parameters  for 
the  perturbation  when  given  the  height  and  colatitude  indices. 
This  function  is  used  by  S2PPR  and  MU2 . 


MU2  This  subroutine  determines  the  value  of  the  perturbation  plasma 

frequency  using  sine  square  segments  or  the  Chapman  profile  for 
a particular  point  (r ,0,0)  given  the  layer  parameters  as  a function 
of  0 and  0.  This  subroutine  is  called  by  S2PPR  and  uses  function 
FUNFH2 . 


ACCURACY 


The  question  of  accuracy  here  applies  mainly  to  the  way  in  which  the  data  will  be 
used.  It  should  be  kept  in  mind  in  selecting  the  grid  parameters  for  the  data  file 
that  interpolation  on  this  data  will  be  quadratic  in  height  and  colatitude  and 
linear  in  longitude. 


PML  136 


COMMENTS  ON  USAGE 


The  data  file  created  by  S2PPR  will  typically  be  very  large  in  terms  of 
Permanent  Record  Units  (PRUS).  Files  created  so  far  have  ranged  from  7000  to 
bo, 000  PRUS.  To  keep  these  permanently  in  the  system  permission  must  be  obtained 
from  Mr.  Gosselin  and  they  must  be  accessed  frequently.  This  means  that  large 
files  should  be  created  only  when  extensive  production  work  is  to  be  done.  If 
only  one  run  is  desired  on  a particular  data  set,  the  file  should  be  created  in 
that  run  and  not  made  permanent. 


f.  1 

rj 

r~ 

t 
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FILE  DESCRIPTIONS 


The  program  card  for  this  program  is  as  follows: 

PROGRAM  S2PPR( INPUT, OUTPUT, TAPE5=INPUT,TAPE6=0UTPUT,TAPE2,TAPE1 ) 

INPUT  and  This  is  the  system  input  file  under  n rmal  operation.  It 
TAPE5  consists  of  the  cards  describeu  on  pages  2-8. 

OUTPUT  This  is  the  system  output  file  under  normal  operation.  It 
TAPE6  contains  the  information  described  on  page  9 as 

printed  output  plus  any  error  messages  from  the  program 
or  the  system. 


TAPE1  This  is  the  permanent  file  which  contains  the  transformation 
array  for  going  from  geographic  to  accurate  geomagnetic 
coordinates.  It  is  stored  in  both  systems  I and  II  under  the 
file  name  MJDATA  with  ID=LOGICON. 

TAPE2  This  is  the  major  output  of  S2PPR,  a mass  storage  file  to  be 

used  by  the  electron  density  subroutine  of  the  ray  trace  program. 
(See  PML127,  Revision  1.) 

This  file  consists  of  up  to  30  random  access  records  of  length 
ranging  from  12  to  8823  words  and  containing  the  following 
information: 

Record  1: 

LATMX,  LON'MX,  LHTMX . THZO.  PHIZO,  HTZO,  DLTH,  DLPH,  DLHT, 

NAME.  NLAT . NLON 


LATMX 

LONMX 

LHTMX 


P11IZ0 


The  number  of  latitude  entries. 

The  number  of  longitude  entries. 

The  number  of  height  entries,  (v  200) 

The  initial  colatitude  entry  in  radians. 

(This  is  the  lowest  colatitude  for  which  data 
is  available.) 

The  initial  longitude  entry  in  radians. 

The  initial  height  entry  in  km. 

The  increment  in  colatitude  entries  in  radians. 

The  increment  in  longitude  entries  in  radians. 

The  increment  in  height  entries  in  km.  (Not  used.) 
An  alphanumeric  identifier  to  be  printed  on  output. 
The  number  of  data  blocks  required  to  cover  the 
la ti tvide  values. 
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NLON  - The  number  of  data  blocks  required  to  cover  the 
longitude  values. 

NOTE:  NLAT  * NLON  should  not  exceed  98* 

Record  2:  (HGT(l),  1=1,200) 

This  represents  the  table  of  height  values.  200  values 
are  read  in  although  only  the  first  LHTMX  of  them 
represent  legitimate  height  values. 

Record  3:  (THETA(l),  1=1, 1 1 ) , (PHI( J) , J=l,12), 

(((FH(I,K,J),I=1, 11),K=1,200),J=1,U)  or  a total  of  8&3  words. 
THETA  - An  array  of  colatitude  values  in  radians. 

PHI  - An  array  of  longitude  values  in  radians. 

FH  - An  array  of  plasma  frequencies  in  MHz. 

Record  k:  ( ( (FH( I, K, J) , 1=1, ll),K=l,200), J=5,8)  or  8800  words. 

Record  5:  ( ( (FH( I, K, J) , 1=1, 11 ) , K=l,200) , J=9, 12)  or  8800  words . 


Records  3>  and  5 represent  the  first  data  block. 

Subsequent  sets  of  3 records  such  as  6,7,  and  8,  9> 10,  and  11,  etc.  will  be 

repeats  of  records  and  5 for  subsequent  data  blocks.  TAPEb  can  have  a 

total  of  98  blocks  or  up  to  299  records.  The  total  number  of  blocks  available 
is  NLAT  * NLON.  Blocks  are  numbered  according  to  the  following  scheme. 
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Ascending  $ 


Block  1 

I 

Block  NLAT  + 1 

Block 

(NL0N-1)*NIAT  + 1 

Records 

3, 

and  5 

1 

Records 

3*NlAT+3 

3*NLAT+4  and 
3*NLAT+5 

• « • 

Records 

3 *(NL0N-l)*NLAT+3 
3 *(NL0N-l)  *NIAT+i*  and 
3*(NLON-l)*NLAT+5 

Over 

lap 

areas 

■ 

Block  2 

ap  areas 

Block  NLAT  + 2 

I 

I 

Block 

(NL0N-1)*NLAT  + 2 

Records 

6,  7, 

and  8 

Records 
3*NLAT+6 
3*NLAT+7  and 
3*NLAT+8 

1 

• • • 

1 

Records 

3*(NLON-l)*NLAT+6 
3*(NLON-l)*NLAT+7  and 
3*(nlon-  1 )*NLAT-i-8 

r "i 

u 



■ 

• 

£ 

l 

« 

■ 

• 

• 

| 

• 

• 

• 

1 

* 

• 

— 

B 

Block  NLAT 

Block  2*NLAT 

S 

Bio:!:  NLON  * NLAT 

Records 

3*NLAT 

3*NLAT-cl  and 
3*NLAT-U2 

Records 
6*NLAT 
6*NLAT+1  and 
6*NLAT+2 

• • • 

Records 
3*NL0N*NLAf 
3*NL0N*NLAT+1  and 
3*NLON*NLAT+2 

SAMPLE  DECK  SETUP 


Job  Card  with  CM200000. 

ATTACH( SOURCE, S2PPRX369381 8, ID=LANGW) 

FTN ( I =SOURCE , B =BS2,  PL =20000 ) 
ATTACH(TAPE1,MJDATA, ID=L0GIC0N) 
REQUEST(TAPE2,*PF) 

BS2. 

CATALOG(TAPE2,VAR2DATAX36938l8, ID=LANGU; RP=999) 

7/8/9 

Data  cards  for  S2PPR 

6/7/8/9 
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Attachment  1.  Sample  Input  for  S2PPR 
Grid  lines  appear  every  5 columns. 
Output  Grid  Specification  - Card  1 


NLONMX  NHTMX 

NLATMX  NAME  PHIZO  THZO 


1!TZ0 

I y n, 


DLPH 
I 1 • 5 ill 


nil  7 J | jqqfifAPfc  | | | 14. | | K 0 . | | 1 . 5 o|  | .2) 

This  card  gives  the  number  of  entries  in  longitude,  colatitude,  and  height, 
their  starting  values,  and  their  increments.  NAME  is  the  5 character  indentifier 
of  the  data  set. 

Variable  Height  Increment  Specification  - Card  2 


HBOT(l)  HB0T(2)  HB0T(3) 

HINC(l)  H1NC(2)  HINC(3) 


80|.  - — l|i2.  I-  1.  I 144.1 

Model  Specification  - Card  3 
NS  IN  NTHET 


2l.  • I - ■ 


1 f -f  — 


H 1 I- 


NSIN  tells  the  number  of  sine  square  segments  which  compose  the  lower  iono- 
sphere and  NTHET  which  is  zero  indicates  that  the  tables  to  follow  are  in 
accurate  geomagnetic  coordinates. 

Plasma  Fri Huency  Model  - Next  2*NSIN  + 2 sets  of  cards. 

2 - Specification  of  F,  - 2 entries 

»_Q  0-0-1 5£._.-0Q£lJ 

Z.  3-  Specification  of  F - 2 entries 

-5 0 5C  . - ft.  J.. 1 

2 Specification  of  F - 2 entries 

c r n'n  4 cr  n n 4 ) 3 


■y  Specification  of  F,  - 6 entries 

.-5 £. 17.2 C.JLj..7-._9.|__2.4|5 — Zi^J ?.[,  45 — (2-5.4- 0^  - -5ft[. (ft.- 

1?  "I.  Specification  of  Fc  - 12  entries 

^5 4.2  13.9 U.Z  \ 11.8h_  5.|l  16^9-  -45.-1-  117  .5  1— k+ll—Z  5^C  — -ftj.  2 

26.  a 2.  2 33.4  2.2  J 34.1  1.6  34.9  1.6  |35.6  Z.2'  50.  0 2.2 


U 5ftj. jo.- 

-2j—  2 5.JC  -41.2- 
2 50.0  2.2 


.5  81.  5P . 81. 

.5  82.  |5C.  82. 


* J 

rh 


pec  it lcat run  ot 
pecification  ol 


c 

.5 

83. 

i5C. 

83. 

.5 

84. 

5C  . 

84. 

1_7 

. 5 

16  P . 

10.4 

168. 

4L6.-S 

-27£  .. 

28.  C 

-24  0. 

*3.0 

’(.0  . 

■ 

Specification  ot  H - entries 

Spec  1 1 teat  ion  ot  FT  - c entries 
Specification  of  H.  - I3  entries 
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- 14  entries 


.5 

340  . 
450, 

10.9 

-2.5.  8.  . 

340.  ; 
.460.  | 

II.61 

.’a-nJ 

3 80  . 16.  9^  ?!b  0 • 

. 16  n.  J’  t 7t,n. 

jl?.6 

.6 

_2_ 

’50. 

50.0 

360.  J 

1 r ^ — 1 

Specification  ot  R.  . - 2 

I 

entries 

,|5 

5o|l  • 

5C. 

;5  0 1 . > 

P1HA 

Layer  Modification 

Signal 

Card 

Signal  for: 


This  card  indicates  that  f,_  is  to  have  an  additive  variation  and 
is  to  have  an  additive  and  a multiplicative  variation, 
f^  Additive  Variation 

“5 

Longitude  values: 

| P.  | 5|.  | 10.  | 1|S.  | ?3.|  | 30|.  | 35.  | 

Colatitude  values: 

2^.6  I ?5.|n  ]?5.5  | 27|.-0  | ?7.5|  | 28. |&  — -J? 9. -9  - 

Plasma  Frequency  Values  for  Addition  - 8 Cards 

0 ■ ] ■ 1.  - — *1 1 - -•  -.It--  -1- . 

n.  1*  0.  — 1 • — 1 • 0. 

n,  n.  n.  0.  -0.  fl.  — - 

n . 0 . n . o . .5  . 7 

p.  0.  -.5  — .7 -1 . 

n n . . r.  .7  1 . 1.2 


that  h. 


1 , 

0 . 

--0-. 


.7 

1 . 


0 . 

n _ 

y-r- 

0, 

— 0-r  - 

i . 

— li  2 

1 . 
j B 

1. 
1 , 



l. 

-1. 

-l. 

h^  Additive  and  Multiplicative  Variation 
Longitude  values : 

| 0.  | 5|.  | 10.  | If.  | 29. | 

Colatitude  values: 

| ?6.|o  Y^r-  I ?7l*r  1 

Height  Values  for  Addition  - 8 Cards 

I -m.i  I -?r'. \ I 0.1  I 10.1 


I?*?.  | 3 0|.  | 35.  | 4|0.  | 45. | 

.0  | 2-8  . |r.  — -|2‘0-,  0-| 2 V5 +-3-0. 0} 


— —5  1 -T  0 . • 

0 . 0. 

0.  0. 

U . 0. 

-24, 14,- 

-20.  -10. 

--  0 1 0 * 

0.  0. 


Multipliers  for  Height  Values 
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Perturbation  Specification 
NSIN2 
5 1 - 

NSIN2  is  analogous  to  NSIN  and  gives  the  number  of  sine  square  segments  in  the 
perturbation  model. 


Plasma  Frequency  Perturbation  Model  - Next  2*NSIN2  + 2 sets  of  cards. 
2 Specification  of  Perturb.  F.^  - 2 entries 


c 

.5- 

6 

.5  - 
1 

-.5- 

2 

.-5-- 

2 


0 . 5C  . 


0 • 5C . 0 . 


-.45 100  . 

2 

-.-5 — 11?. 
2 

-.5—128  . 
2 


-50. 10  0.- 


-5G » 128. 


Specification 

of 

Perturb 

. F - 2 

entries 

Spec  if icat ion 

of 

Perturb 

. F - 6 
1.— 19. 

• Fi,  ' 2 

ent r ies 

; 

Specification 

of  Perturb 

1 ] u • vu  • U • 

entries 

Spec  if icat ion 

of 

Perturb 

. F5  -2 

entries 

Spec  if icat ion 

of 

Perturb 

. H0  - 2 

entries 

Specif icat ion 

of 

Perturb 

• H1  - 2 

entries 

Specif  ii.at„- .. 

of 

Perturb 

• H2  * 2 

entr  ies 

Spec  if  icat  ion 

Perturo 

. H,  - 2 
3 

entries 

Spec  if  icat  ion 

of 

Perturb 

' H4  - 2 

entr  ies 

Spec  if icat ion 

of 

Perturb 

• V2 

entries 

Spec  if icat ion 

of 

Perturb 

' hmax 

2 entries 

.5  501.  I5C. 

Perturbation  Layer  Modification  Signal  Card 
Signal  for: 

h f3  £4  f5  ho  hl  h2  h3 


max 


0 


o|  n|  o|  o|  -o|  n|  . o|  n|  o|  ■ c|  ._  j|  - J 4 [ 

In  this  case  no  layers  are  to  be  modified  so  this  concludes  the  input  data. 
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Attachment  2 , Page 


Sample  Output  from  S2PPR 


I |N.  ^ . 

n I *■«  f 


^JT  DAM  FOR  lOtK 


Attachment  2,  Page  2.  Sample  Output  from  S2PPR 


PML  130 


MICROCOPY  RISOLUTION  TtST  CHART 

NATIONAL  HURIAU  Of  STANDARDS  1964  * 


oO  IjCC 


Specification  of  output  array  of  plasma  frequency 


i H n J Jj  (\J  > 

1 (T  UN  O O'  - 


I U>  ^ K N <t)l 


o o o o o c 

-r-—t 


o n o r o 

a a a a a 


o o o n o. 

I n M M H M 

I o c-  c p o 

a ix  a.  a.  a 


I i 

n.  h a a a 


Attachment  2,  Page  5 - Sample  Output  from  S2PPR 


Attachment  2,  Page  6 - Output  from  S2PPR 
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NAME: 
CATEGORY: 
TITLE: 
LANGUAGE : 
PROGRAMMER: 


DATE: 


S2PPR,  revision  1,  program,  PML  I36 

Preprocessing  program  for  a ray-trace  ionospheric  mode] 
Sine  Square  Preprocessing  Program 
CDC  Extended  Fortran  - Version  4 

Revision  by  L.  Calabi  and  I.B.  Jarvis,  Parke  Mathematical 
Laboratories,  Inc. 

December  6,  1976 


DESCRIPTION 


This  program  has  been  modified  to  pack  4 elements  of  the  array  for 
the  ionospheric  model  into  one  computer  word.  This  is  accomplished 
in  subroutine  FPACK4  by  the  following  algorithm: 


Given  four  array  elements 

+ l,k) 

x3  = f(i>J  + 3,k) 

let  x^  be  the  integer  obtained  by  multiplying  x^  , i = 1,2, 3, 4, 


x2  = + 2,k) 

x4  = f(iAj  + ^k)  , 


by  1000.  and  by  rounding: 

x^  = integral  part  of  (1000  x^  + .5), 
and  let  y be  the  integer 

yi  = *1  , y2  = *2  • *1  ’ y3  = *3  • *2  ’ y4  = *4  ' *: 

It  is  assumed  that 


0 < xL  < 32.768  0 < yL  C 32768 

|xi  - xi.1l  < 16.384  |y.|  < 16384 


(i  = 2,3,4), 


Let 


and 


= Vi 


:i  = V if  yi>  0 


zL  - y1  + !6384  if  yt  < 0 (i  = 2,3,4). 

The  z.  can  be  represented  with  15  bits  and  stored  as 


0 45 

Z1  • 2 + Z2 


„ 30 

2 + z. 


15 

2 + Z) 


in  one  60-bit  computer  word. 
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The  only  modifications  required  to  the  main  program  (S2PPR)  are: 

1)  Include  the  packed  array  ROMP  in  the  COMMON  storage  area. 

2)  CALL  FPACK  before  writing  to  mass  storage. 

3)  Change  the  number  of  words  to  write  on  mass  storage  to  6623. 

Corresponding  modifications  must  of  course  be  made  to  RAYTRACEBL 
as  described  in  its  program  write-up,  revision  1. 


STORAGE  REQUIRED 


Storage  required  for  this  revision  of  S2PPR  is  ll^OOO  octal  words 
of  core  storage. 


TIMING 

166  CP  seconds  execution  time  was  required  for  the  test  run  which 
created  2k  data  blocks.  This  is  approximately  7 seconds  per  data 
block.  This  is  slightly  slower  than  the  previous  version  of  S2PPR 
but  results  in  smaller  permanent  file  and  disk  pack  storage  re- 
quirements. There  is  also  a core  storage  and  I/O  savings  for  the 
ray  tracing  program. 
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NAME: 

CATEGORY: 

TITLE: 

LANGUAGE: 

PROGRAMMER: 

DATE: 


S2PLT,  revision  0,  program,  PML  138 

Plotting  program  for  use  with  electron  density  preprocessing 
program. 

Plasma  frequency  contour  plotting  program. 

CDC  extended  Fortran  - version  4 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
December  23,  1975 


DESCRIPTION 


Program  S2PLT  may  be  used  to  plot  the  contours  of  models  to  be  given  to  S2PPR. 

It  will  plot  models  with  or  without  the  layer  modifications  and  will  also 
plot  the  perturbation  models  with  or  without  layer  modifications.  This  program 
has  been  separated  from  the  preprocessing  program  S2PPR  to  keep  it  within 
reasonable  core  limits.  Plots  are  composed  of  layer  characteristics  such  as 
the  plasma  frequency  of  the  various  layers  versus  colatitude  for  any  given 
value  of  longitude.  The  coordinate  system  will  be  that  of  the  input  model. 

Plots  may  contain  more  than  one  contour  within  the  following  limitations: 
height  and  plasma  frequencies  cannot  be  intermixed  on  one  plot  and  the  model 
cannot  be  mixed  with  the  perturbation  on  one  plot.  A plot  can  be  made  up  of 
the  plasma  frequency  contours  for  all  five  sine  square  segments  or  any  one  or 
combination  of  several  of  these  contours.  Plots  can  deal  with  only  one  longitude 
value  on  a particular  set  of  axes. 

By  separating  S2PLT  from  the  preprocessing  program,  layer  modifications  can  be 
assessed  before  the  plasma  frequency  array  is  generated  thus  saving  considerable 
computation  time. 

INSTRUCTION  SET 

The  input  data  set  to  S2PLT  is  the  same  as  that  for  S2PPR  (See  PML  136)  except 
that  input  cards  1 and  2 are  omitted  since  these  two  cards  specify  the  grid 
size  and  fineness  of  the  output  plasma  frequency  array  which  is  not  generated 
by  this  program.  Additional  input  must  follow  the  model  and  perturbation 
specifications  which  indicates  the  contours  to  be  plotted.  For  each  set  of 
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plots  desired  two  input  cards  are  required:  the  first  to  specify  which 

contours  are  to  be  included  on  the  plot  and  the  second  to  tell  for  which 
values  of  longitude  the  plots  are  to  be  made.  These  cards  follow  the  complete 
contour  specification  as  would  be  given  to  S2PPR. 


Card  1 (1215) 

Cols  1 - 5 IPL( 1 ) 
Cols  6-10  IPL(2) 
Cols  11  - 15  IPL(3) 
Cols  16  - 20  IPL(U) 
etc  up  to  a maximum 
of  7 values  of  1PL 


IPL  is  an  array  containing  the  numbers  of  the  contours 
to  be  plotted.  The  number  of  a contour  depends  on  the 
total  number  of  sine  square  segments  in  the  model.  For 
instance  if  there  are  3 sine  square  segments  the  contour 
numbers  will  correspond  as  follows: 


Contour 

1 

is 

the 

fl 

contour 

If 

2 

is 

the 

f2 

contour 

II 

3 

is 

the 

f3 

contour 

II 

h 

is 

the 

Ho 

contour 

If 

5 

is 

the 

«1 

contour 

II 

6 

is 

the 

h2 

contour 

II 

7 

is 

the 

Hq 

contour 

II 

8 is 

the 

H contour 

max 

were  to 

be 

5 

sine  square  segments 

Contour  1+ 

is 

the 

f4 

contour 

• 1 

5 

is 

the 

f5 

contour 

II 

and  so 

6 

on. 

is 

the 

Ho 

contour 

I u- 
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Since  only  plasma  frequencies  or  heights  can  be  specified  on 

a given  plot,  card  1 could  have  no  more  than  7 entries  as  in 

the  five  sine  square  case  if  H , H,  thru  H . and  H were 

01  5 max 

all  to  be  contained  on  a plot. 

To  plot  the  plasma  frequency  and  height  contours  for  the 
perturbation,  20  must  be  added  to  the  above  contour  number. 
Thus  the  f^  contour  would  be  specified  as  contour  23. 

All  IPL  entries  must  be  right  justified  in  the  five  spaces 
provided  and  contain  no  decimal  point. 


Card  2 (H0,7F10.0) 
Cols  1 - 10  NPHI 

Cols  11  - 20  PHPLT(l) 
Cols  21  - 30  PHPLT(2) 
etc  up  to  PHPLT(NPHI) 


This  is  the  number  of  values  of  longitude  for  which 
the  plots  are  to  be  made.  The  number  should  be  right 
justified  to  column  10  and  should  be  no  greater  than  7. 
where  PHPLT  is  an  array  containing  the  values  of 
longitude  in  degrees  for  which  the  contours  are  to  be 
plotted.  This  value  will  appear  on  the  top  of  the  plot. 
Values  of  PHPLT  must  contain  a decimal  point. 
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These  two  cards  may  be  repeated  as  often  as  necessary  to  obtain  all  desired 
sets  of  plots.  Below  is  listed  a sample  input  case: 

112233^^55667 

Cols  50505050505050 

If  the  number  of  sine  segment  is  5 and  we  wish  to  plot  f _,  f ^ , and  f : 

Card  13*+  5 

Card  2 7 0.0  3-5  10.  15-  24.  67-125  70. 

If  we  wish  also  to  plot  H) , and  H^: 

Card  16  9 10  11 

Card  2 7 0.0  3-5  10.  15.  24.  67. 125  70. 

If  the  number  of  sine  square  segments  for  the  perturbation  is  3 and  we  wish 


Card  1 22  23 
Card  2 1 0.0 


We  also  wish  to  plot  and 


for  the  perturbation  model. 


Card  1 26  27 
Card  2 1 0.0 


The  output  of  S2PLT  consist  of  a listing  of  inputed  tables  for  the  model  and 
perturbation  and  the  desired  plots  which  are  given  in  Attachment  1. 

STORAGE  REQUIRED 


S2PLT  requires  55000  octal  words  of  core  storage. 
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The  layer  modification  computations  performed  by  S2PLT  are  the  same  as  those 
in  S2PPR.  Please  refer  to  PML  136  for  this  algorithm. 

SPECIAL  CAUTIONS  AND  FEATURES 


Care  must  be  taken  to  be  sure  that  the  contours  which  are  to  be  plotted  on  a 
given  plots  are  either  all  plasma  frequencies  or  all  heights  since  the  axis 
system  is  selected  based  on  whether  the  first  contour  specified  is  a plasma 
frequency  or  a height.  Thus  trying  to  plot  height  on  a scale  selected  for 
plasma  frequency  in  MHz.  will  cause  the  plot  limits  to  be  exceeded  and  the 
program  will  stop. 


TIMING 


The  timing  of  S2PLT  will  vary  becoming  greater  with  increased  complexity  of 
the  layer  modification.  A typical  timing  with  modifications  to  several  layers 
is  1.5  seconds  per  plot. 

ERROR  MESSAGES 


PARAMETERS  OUTSIDE  LIMITS 

MAXIMUM  NUMBER  OF  COLATITUDE  ENTRIES  = XXXX 
NUMBER  OF  SINE  SQUARE  CURVES  = XXXXX 


This  indicates  that  the  maximum  number  of  colatitude  entries  has  exceeded  25 
or  the  number  of  sine  square  curves  specified  is  greater  than  5*  Check  to  see 
that  these  numbers  are  punched  in  the  correct  columns  or  that  the  input  deck 
is  set  up  in  the  correct  order.  This  message  will  be  printed  out  when  this  is 
encountered  in  either  the  model  or  the  perturbation. 
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SUBROUTINES 

ADDER  This  subroutine  computes  the  additive  and  multiplicative 

variations  to  be  made  in  the  model  and  the  perturbation 
as  a function  of  colatitude  and  longitude. 

Program  S2PLT  also  requires  some  AFCRL  plotting  software  subroutines.  See 
Section  11+  of  the  AFCRL  User's  Guide  for  details.  The  plotting  subroutines 
called  are:  PLTID3,  AXIS,  ENDPLT,  LINE,  NUMBER,  PLOT,  and  SYMBOL. 

ACCURACY 


The  curves  put  out  by  S2PLT  are  made  up  of  points  calculated  every  0.5  degrees 
in  colatitude.  If  a particular  sine  square  segment  happens  over  a small  interval 
in  colatitude,  it  will  tend  to  look  squared  off,  but  this  will  not  affect  the 
computational  values  put  out  by  S2PPR. 

COMMENTS  ON  USAGE 


S2PLT  is  designed  to  be  used  as  a companion  program  to  S2PPR.  When  constructing 
models  and  modifying  layers,  S2PLT  should  be  used  to  evaluate  the  layer  modifi- 
cations before  S2PPR  is  run.  S2PLT  will  only  depict  the  characteristics  of  a 
particular  sine  square  segment.  If  profiles  of  plasma  frequency  versus  height 
are  desired,  S2PPR  must  first  be  run  and  then  program  PROPLT  must  be  used  with 
electron  density  subroutine  El499^+-  See  PML  129  for  a description  of  PROPLT  and 
PML  127,  rev.  1,  for  a description  of  Ell+99^-- 
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FILE  DESCRIPTIONS 

The  program  card  is  as  follows: 

PROGRAM  S2PLT( INPUT,  OUTPUT,  TA?E5=INPUT,  TAPE6=OUTPUT) 
The  input  to  S2PLT  is  described  on  page  2. 


DECK  SET  UP 


Job  Card  with  CM60000. 

ATTACH(SOURCE,S2PLTX36938l8,ID=LANGW) 

FTN(l=S0URCE,B=BS2P) 

ATTACH ( PEN, ONLINEPEN) 

LIBRARY(PEN) 

ldset(preset=zero) 

BS2P. 

DL  1SE(PL0T,*0L) 

EXIT. 

dispose(plot,*ol) 

7/8/9 

Model  description  data  cards 
Perturbation  description  data  cards 
Sets  of  2 plot  description  cards 

6/7/8/9 
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NAME:  COLPP,  Revision  0,  program,  PML  139 

CATEGORY:  Preprocessing  program  for  collision  frequency  generation 

TITLE:  Collision  Frequency  Preprocessing  program  for  the  ray-trace  program 

LANGUAGE:  CDC  Extended  Fortran  - Version  4 

PROGRAMMER:  B .M. Langworthy,  Parke  Mathematical  Laboratories,  Inc. 

DATE:  February  20,  1976 

DESCRIPTION 

This  program  was  written  to  take  existing  atmospheric  and  solar  data  and  to 
generate,  in  tabular  form  magnetic  and  dipolar  coordinates,  those  quantities 
needed  to  produce  the  collision  frequency  at  any  given  location  in  (r, ©,(/)) 
and  for  any  given  date  and  time.  To  accomplish  this,  parts  of  other  programs 
developed  by  the  Air  Force  Cambridge  Research  Laboratories  were  used  extensively. 
A set  of  subroutines  which  provided  the  temperature,  density,  mean  molecular 
weight,  and  number  cf  molecules  was  obtained  from  Dr.  Champion  of  LKB.  This  is 
the  model  developed  by  Dr.  L.  C.  Jacchia  of  Smithsonian  Astrophysical  Observatory 
in  1971  and  optimized  for  AFCRL  use  by  Mr.  John  Kotelly,  AFCRL- 72-0171 . 

The  solar  declination  was  obtained  from  a subroutine  SOL  which  is  part  of  the 
CADNIP  program  developed  for  AFCRL  by  IBM  Federal  Systems  Division  of  Burlington, 
Mass.  Also  modeled  for  this  program  was  the  ratio  of  the  electron  temperature 
and  the  neutral  temperature  from  information  supplied  by  Mr.  Charles  Rush  of  LII. 
Solar  Flux  and  magnetic  index  data  needed  for  the  program  have  been  supplied  by 
Mrs.  Isabel  Hussey  of  SUYA. 

Program  COLPP  creates  a file  of  data  on  the  collision  frequency  of  neutral 
particles  and  the  electron  temperature  as  a function  of  height,  magnetic  dipolar 
colatitude,  and  magnetic  dipolar  longitude  to  be  used  by  ray-trace  collision 
frequency  subroutine  C0LAF1  (See  PML  lUo). 
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INSTRUCTION  SET 

To  use  COLPP  the  user  must  specify  some  information  about  the  desired  day  on 
which  data  is  to  be  generated.  The  first  card  contains  this  information. 


Card  1 


Cols 

1 

- 3 

Cols 

b 

6 

Cols 

7 

- 9 

Co  Is 

11 

- 20 

Cols 

21 

- 30 

Cols 

31 

- 4o 

Cols 

1+1 

- 50 

Cols 

51 

- 60 

Cols 

61 

- 70 

MON  - The  month  of  the  year  for  which  the  data  is 

desired  in  numbers  from  1 to  12.  (13) 

IDAY  - The  day  of  the  month  for  which  the  data  is  desired.  (13) 

IYR  - The  year  for  which  the  data  is  desired.  (13) 

UT  - The  universal  time  at  which  the  data  is  desired.  (FIO.O) 

TMJD  - The  date  in  modified  Julian  days.  (FIO.O) 

SOLCY  - The  years  into  an  eleven  year  solar  cycle  with  0 

indicating  a solar  minimum  and  5*5  indicating  a solar 

maximum.  (FIO.O)  This  is  used  for  the  calculation 

of  the  ratio  of  electron  to  neutral  temperature. 

F7  - The  10.7  cm  solar  flux  for  a time  I.7I  days  earlier 

than  the  time  for  which  the  data  is  desired.  (FIO.O) 

FB7  - The  average  10.7  cm  solar  flux  averaged  over  the  four 

solar  cycles  centered  on  the  desired  time.  (FIO.O) 

EKP  - The  planetary  index  Kp  for  a time  .279  days  earlier 

than  that  for  which  the  table  is  desired.  K should 

P 

be  entered  as  3*333  or  2.667  and  not  3+  or  3" • (FIO.O) 


Data  for  F7,  FB7  and  EKP  can  be  obtained  from  Mrs.  Isabel  Hussey  of  SUYA. 

To  specify  the  size  of  the  output  table  desired  the  following  ‘information  is 
needed . 


Card  2 


Cols 

1 - 

3 

NHT 

- The 

number 

of 

Cols 

1+  - 

6 

NTH 

- The 

number 

of 

Cols 

7 - 

9 

NPT 

- The 

number 

of 
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Cols 

11 

- 20 

HTZO 

Cols 

21 

- 30 

DLHT 

Cols 

31 

- ko 

THZO 

Cols 

Ui 

- 50 

DLTH 

Cols 

51 

- 60 

PHZO 

Cols 

61 

- 70 

DLPH 

The  starting  value  of  height  above  the  earth's 
surface  in  km.  (F10.0) 

The  increment  in  height  in  km.  (FlO.O) 

The  starting  value  of  dipolar  geomagnetic  colatitude 
in  degrees.  (FlO.O) 

The  increment  in  dipolar  geomagnetic  colatitude  in 
degrees.  (FlO.O) 

The  starting  value  of  dipolar  geomagnetic  longitude 
in  degrees.  (FlO.O) 

The  increment  in  dipolar  geomagnetic  longitude  in 
degrees.  (FlO.O) 


The  main  objective  of  program  COLPP  is  to  produce  a file  of  data  for  use  by  the 
ray-trace  program.  This  file  is  refered  to  as  TAPE8  by  both  COLPP  and  the  ray- 
trace  program.  The  contents  cf  TAPE8  are  described  under  the  FILE  DESCRIPTION 
section  on  Page  lit-  . 


In  addition  to  TAPE8,  a tabular  output  file  is  created  to  check  the  quantities 
stored  on  TAPE8.  A sample  output  page  is  given  in  Figure  1.  The  first  line  of 
output  is  a listing  of  the  input  given  to  COLPP  in  card  1.  Quantities  are 
identified  and  listed  in  the  order  of  their  input.  The  second  line  of  output 
is  a statement  to  the  effect  that  the  coefficients  needed  to  convert  from 
geographic  to  accurate  geomagnetic  coordinates  have  been  read  in.  It  also  gives 
the  identifier  contained  on  the  file  to  identify  the  set  of  coefficients. 


Next  a table  of  values  with  height  is  given  for  each  magnetic  dipolar  point  (9,0). 
The  dipolar  coordinates  of  that  point  are  given  in  radians  and  the  accurate 
magnetic  coordinates  are  given  in  degrees.  The  dipolar  values  given  are  colatitude 
and  longitude,  while  the  accurate  magnetic  coordinates  are  given  in  latitude 
and  longitude.  The  table  entries  given  are  as  follows: 


HGTH 

TEMP 

TEMP  INF 


Height  above  the  earth's  surface  in  km. 

. o 

Temperature  in  K. 

The  exospheric  temperature  on  which  the  data  is  based  in 
°K.  Note  that  this  value  changes  at  200  km.  due  to  a change 
in  the  formula  for  generating  data. 


- 3 - 


- 117  - 


HH 


PML  139 


ALPHA 


LOG  PRESS 
PRESSURE 
DENSITY 
NO.  MOL. 
NU  NEAV 


NU  NE 


ALPHA  TEMP 


This  is  the  ratio  of  electron  temperature  to  neutral 
temperature.  Its  computation  is  described  in  the  ALGORITHM 
section. 

The  log  to  the  base  10  of  the  pressure  in  grams/cmc. 

Pressure  in  grams/cm  . 

Density  in  grams /cc. 

The  number  of  molecules  per  cc . 

The  collision  frequency  of  the  neutral  molecules  using  the 
formula  based  on  pressure  (Valid  below  200  km.)  in  collisions 
per  second.  (This  quantity  is  supplied  to  C0LAF1.) 

The  collision  frequency  of  the  neutral  molecules  using  the 
formula  based  on  the  number  of  molecules  and  the  electron 
temperature.  (This  quantity  is  supplied  to  C0LAF1.) 

The  electron  temperature  or  ALPHA*TEMP  in  °K.  (This  quantity 
is  supplied  to  C0LAF1.) 


STORAGE  REQUIRED 


The  storage  required  for  COLPP  is  140000  octal  words  of  core  storage.  A large 
part  of  this  is  required  for  storage  of  the  output  table  and  storage  of  the 
coefficients  for  conversion  to  accurate  magnetic  coordinates. 


ALGORITHM 


The  output  from  COLPP  is  basically  three  quantities  <V  >, "V  , and <KT  , all 
a function  of  r ,9 and  the  statistics  for  the  desired  date  and  time.  These 
quantities  are  used  in  the  computation  of  the  collision  frequency  in  the 
following  manner. 

For  the  E region: 

•y  = <?y  > = 1.72517  x 106  P 

en 

where  V is  the  collision  frequency  in  collision/sec 

■y  is  the  collisions  frequency  with  neutral  molecules  in 
collisions/sec . 

2 

P is  the  pressure  in  grams /cm  . 
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For  the  F region: 

-y  = -v  +y  . 

en  'ex 

where is  the  collision  frequency  with  ionized  molecules  in 
collisions/sec 

■y  = 3.6  x 10" 10  N (<-*T 
en  n n 

where  N is  the  number  of  molecules/cc 
n 

CK,  is  the  ratio  of  electron  to  neutral  temperature 

T is  the  neutral  temperature  in  °K. 
n 


-y  . = 5-5N 

ei  e 


(U  T ) 


220.  (^Tn) 


where  N is  the  electron  density  in  electrons  per  cc . 
e 

The  quantities  N and  T are  supplied  by  the  subroutine  CCIA  described  in 
n n 

report  AFCRL- 72-0171 • The  pressure  P can  be  computed  using  the  following 
formula . 

_ 8.31^  x 106  T f5 


where  T is  as  described  above 
n 

(°  is  the  density  in  grams/cc 
M is  the  mean  molecular  weight. 


The  density  P is  also  supplied  by  subroutine  CCIA  and  the  mean  molecular 
weight  is  computed  using  a minor  modification  to  CCIA. 


The  quantities  N^,  T^,  , and  M are  then  functions  of  position  in  r,©,fiS,  the 

time  of  the  day,  the  date  (gives  the  declination  angle  of  the  sum),  the  10.7  cm 
solar  flux,  the  average  10.7  cm  solar  flux,  and  the  planetary  index  . Details 
of  this  dependence  can  be  found  in  report  AFCRL- 72-0171  ar>d  in  CIRA  1972 
report  pp  227*257. 
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The  quantity  o(  has  been  modeled  to  vary  with  season,  time  ot  day,  and  solar 
cycle  based  on  data  given  by  C.M.  Rush  and  T.J.  Elkins,  An  Assessment  of  the 
Magnitude  of  the  F-Region  Absorption,  Telecommunication  Journal.  Vol.  42,  Aug. 

1975,  pp.  4-76-488.  A variation  with  accurate  geomagnetic  latitude  is  given  by 
the  curve  in  Figure  2. 

The  variation  with  season  is  done  with  a quartic  which  goes  through  the  given 
value  of  o*'  for  December,  March,  and  June  and  has  zero  derivative  at  the 
December  and  June  points.  The  value  of  indicates  an  value  for  Massachusetts 

Given  values  for  the  particular  height,  solar  cycle,  and  time  for  each  of  the 
December,  March,  and  June  entries,  call  them  and  respectively, 


> 4 3 2 

(X  = ax  + bx  + cx  + dx  + e 


where  a 
b 


1/2  (2a  M - *D  - *,) 
1/k  (*0  ■ ^J} 


= * D + ^J 


2<X 


M 


d = 


e = 


3A  ( ^ -<*„) 


M 


where  x is  a measure  of  the  season  computed  in  the  following  manner. 


x = (y  - 91.25)/91*25 
where  y = (day  of  year  - 11) 


modulo  365" 


if  y > 182.5 

then  it  is  replaced  by  365  “ y. 


The  variation  of  with  latitude  is  specified  by  the  curve  given  in  Figure  2. 
This  variation  is  given  in  accurate  magnetic  colatitude  and  is  used  as  a 
multiplier  for  that  portion  of  which  is  greater  than  1, 

I 

« = l.+(c*-l)cx  whereof  is  the  multiplier. 

M M 


1 
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?<  is  given  as  follows. 
M 


ca  = 1.4  if  0 . < 12.42 

M AM 

o rp  ' 12.42 

« M = + -k  sin  (—  l3.2k } if  12  A2  — ®AM  < 25*66 


M ' ' ' ■*"  v 2 

1 rp  ©.w  - 46.36 
. , . 4/ JT  AM  J s 

1.1  sin  (-rr  — ) 1 


*M  = -7  + 


20.70 


) if  25.66  < 6 < 46.36 

' — AM 


‘ -7  1£  0AM  2 '*6-36 


where  0^  is  the  accurate  magnetic  colatitude  in  degrees. 


Variation  of  with  height  is  given  by  linear  interpolation  in  tables  and  c^ 
is  taken  to  be  1 below  50  km. 


Read  input  specifying  date,  time,  and  solar  and  planetary  conditions. 
Read  input  specifying  the  desired  tabular  output. 
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SPECIAL  CAUTIONS  AND  FEATURES 

No  more  than  30  heights,  10  colatitudes,  and  12  longitudes  may  be  requested 
for  the  output  array.  Heights  lower  than  90.  km.  should  not  be  requested. 


TIMING 


To  generate  an  array  of  data  30  x 10  x 12,  the  program  required  37  seconds 
of  execution  time. 


ERROR  MESSAGES 

TOLERANCE  NOT  MET  NITH  64*N  DIVISIONS 

This  error  message  can  be  given  from  either  subroutine  SIMPER  or  S2MPER  and 
occurs  when  evaluation  of  an  integral  using  Simpson's  rule  does  not  converge 
to  the  proper  error  tolerance.  This  normally  only  happens  when  data  is  requested 
from  outside  the  bounds  of  the  atmospheric  model  validity,  e.g.  below  90  km. 

The  program  will  proceed  as  if  the  integral  had  been  properly  evaluated. 

XXXXE RRORXXXX  LATITUDE, LONGITUDE  xxx.xxx  xxx.xxx 


This  is  an  error  message  from  the  subroutine  which  converts  geographic 
coordinates  to  accurate  geomagnetic  coordinates.  The  message  appears  if  the 
inputted  latitude  is  not  between  +90°  and  -90^  or  if  the  longitude  is  less  than 
zero.  The  first  quantity  listed  is  the  la  titude  and  second  quantity  listed  is 
the  longitude.  This  message  should  not  appear  since  subroutine  DIC00RD  should 
check  for  this  before  C0RRGM  is  called.  The  subroutine  will  try  to  correct  the 
longitude  by  adding  360°  but  will  proceed  anyway. 

NO  TRIANGLE  FOR  XLAT,XL0NG=  xxx.xxx  xxx.xxx 

This  may  occur  when  the  point  for  which  the  accurate  geomagnetic  coordinates  are 
desired  is  in  the  region  of  the  accurate  magnetic  pole.  The  region  is  divided  into 
triangles  having  the  pole  as  one  vertex.  If  a triangle  cannot  be  located,  it 
is  assumed  that  this  is  the  accurate  magnetic  pole  and  the  above  message  will 
appear  giving  the  coordinates  in  the  geographic  system  in  degrees.  No  value  is 
assigned  to  the  accurate  geomagnetic  longitude  in  this  case.  Computation  then 
proceeds  as  normal. 
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SUBROUTINES 

COLPP 

ALPH 

POLY 

ALATVR 

CCIA 

GRAV 

BMZ 

TZ1 

TZ2 


This  is  the  main  program.  It  reads  in  all  data  cards,  sets  up 

the  tables  of  h,  9,  and  0 and  sequences  through  to  compute  the 

output  tables  of  >,  V > and  ^T  . A flow  chart  of  COLPP 
r 'en  ’ en’  n 

is  given  on  page  10.  COLPP  calls  SOL,  ALPH,  C0RRGM2 , MTOG,  ALATVR, 

and  CCIA. 

Given  a particular  month,  day,  and  solar  cycle  indicator, 

I 

subroutine  ALPH  generates  tables  of  o<  , the  ratio  between  electron 
and  neutral  temperature.  It  generates  tables  of  versus 

height  for  midnight  and  noon  of  the  particular  day.  It  calls 
subroutine  POLY.  It  is  called  by  COLPP. 

This  subroutine  generates  a quartic  given  three  data  points  with 
the  assumption  that  the  derivative  is  to  he  zero  at  the  first  and 
third  points.  It  assumes  the  x-value  is  -1,  0,  and  1 respectively 
for  each  of  the  three  points.  It  is  called  by  ALPH. 

This  subroutine  computes  the  variation  of  with  latitude  which 
we  have  called  when  given  the  geographic  latitude  and  longitude 

of  a point.  It  is  called  by  COLPP  and  in  turn  calls  subroutine 
CORRGM. 

This  is  the  main  subroutine  of  a set  of  subroutines  which  generate 
atmospheric  information  for  any  given  date  and  time  when  certain 
solar  and  planetary  information  is  supplied.  It  is  called  by  COLPP 
and  in  turn  calls  functions  BMZ,  SIMPER,  S2MPER,  TZ1,  and  TZ2 . 

This  function  is  part  of  the  CCIA  package.  It  computes  gravity  and 
is  used  by  functions  TGPN  and  TGRN . 

The  function  is  part  of  the  CCIA  package.  It  computes  the  mean 
molecular  weight  as  a function  of  height.  It  is  used  by  subroutine 
CCIA  and  function  TGRN. 

This  function  is  part  of  the  CCIA  package.  It  is  used  to  compute 
the  temperature  as  a function  of  height  in  certain  regions.  It 
is  used  by  subroutine  CCIA  and  functions  TGRN  and  TGPN. 

This  function  is  part  of  the  CCIA  package.  It  is  used  to  compute 
the  temperature  as  a function  of  height  in  certain  regions.  It  is 
used  by  subroutine  CCIA  and  function  TGSN. 


12 
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TGPN 

TGSN 

TGRN 

S 1MPER 
SEMPER 
SOL 

ANGLE2 

DICOORD 

C0RRGM2 


This  function  is  used  to  calculate  the  gravity  divided  by  the 
temperature  in  the  region  above  100  km.  It  is  part  of  the  CCIA 
package  and  is  used  by  function  SLMPER. 

This  function  is  used  to  calculate  the  gravity  divided  by  the 
temperature  in  the  region  above  500  km.  It  is  part  of  the  CCIA 
package  and  is  used  by  function  S INTER. 

This  function  is  used  to  calculate  the  gravity  divided  by  the 
temperature  in  the  region  below  100  km.  It  is  part  of  the  CCIA 
package  and  is  used  by  function  SkMPER. 

This  function  calculates  a definite  integral  using  Simpson's 
rule.  It  is  called  by  subroutine  CCIA  and  uses  function  TGSN. 

This  function  calculates  a definite  integral  using  Simpson's  rule. 
It  is  called  by  subroutine  CCIA  and  uses  functions  TGPN  and  TGRN. 
This  subroutine  computes  the  solar  declination  angle  and  right 
ascension  angle  given  the  modified  Julian  date.  It  is  called  by 
COLPP  and  uses  function  ANGLE2 . 

This  function  reduces  an  angle  to  the  range  0 to  2 ff  . It  is 
used  by  subroutine  SOL. 

This  subroutine  through  entry  point  MTOG  converts  a point  in 
colatitude  and  longitude  from  dipolar  geomagnetic  to  geographic 
coordinates.  It  is  used  by  COLPP. 

This  subroutine  takes  points  in  the  geographic  coordinate  system 
and  converts  them  to  accurate  geomagnetic  coordinates.  A call 
to  C0RRGM2  causes  the  transforming  array  to  be  read  in.  For  points 
to  be  converted,  a call  must  be  made  to  CORRGM.  C0RRGM2  is 
called  by  COLPP  while  CORRGN  is  called  by  ALATVR. 


ACCURACY 

The  accuracy  of  the  output  of  COLPP  is  limited  by  the  accuracy  of  the  models 
given  in  the  CCIA  subroutine.  The  size  of  the  grid  parameters  chosen  for  the 
output  table  may  in  turn  causes  inaccuracies  in  the  tabular  interpolations  when 
the  data  is  used  in  the  ray-trace  program. 

COMMENTS  ON  USAGE 

The  file  of  three  dimensional  collision  frequency  data  should  be  stored  by  the 
user  by  either  writing  it  on  tape  or  requesting  a permanent  file. 
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FILE  DESCRIPTIONS 

The  program  card  for  COLPP  is  as  follows; 

PROGRAM  COLPP ( INPUT , OUTPUT , TAPE5= INPUT , TAPE6=OUTPUT , TAPES, TAPE  1 ) 

INPUT  This  is  the  system  input  file  under  normal  operation.  It 

TAPE5  consists  of  the  cards  described  on  page  2. 

OUTPUT  This  is  the  system  output  file  under  normal  operation.  It 

TAPEc  contains  the  information  described  on  pages  3 and  k as  printed 

output  plus  any  error  messages  from  the  program  or  the  system. 

TAPE1  This  is  the  permanent  file  which  contains  the  transformation 

array  for  going  from  geographic  to  accurate  geomagnetic  coordinates. 
It  is  stored  in  both  system  I and  II  under  the  file  name  MJDATA 
with  ID= LOG ICON . 

TAPE8  This  is  the  end  product  of  program  COLPP,  a file  of  three-dimensional 

tables  of  information  needed  to  compute  collision  frequency . This 
file  is  to  be  used  by  collision  frequency  subroutine  C0LAF1  of  the 
ray  trace  program.  This  file  is  unformatted. 

Record  1;  NHT,  NTH,  NPH 

NHT  - The  number  of  height  entries  (<  30) 

NTH  - The  number  of  colatitude  entries  (<  10) 

NPH  - The  number  of  longitude  entries  (<  12) 

Record  2:  (HT(l),  I = 1 , NHT ) 

This  is  the  table  of  height  values  in  km. 

Record  3:  (TH(j),  J = 1,NTH) 

This  is  the  table  of  colatitude  values  in  radians. 

Record  4;  (PH(K),  K = 1,NPH) 

This  is  the  table  of  longitude  values  in  radians. 

Record  5;  (GNN(l,l,l),  I = 1 , NHT ) 

where  GNN  is-y  , the  number  of  collisions/sec.  with  neutral 
'en 

molecules . 

Record  6:  (AT(l,l,l),  I = 1 , NHT ) 

where  AT  is  AT,,.  the  electron  temperature  in  °K. 

M 
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Record  7:  (GEN(l,l,l),  I = 1 , NHT ) 

where  GEN  is  <$/  the  collision  frequency  using  the  pressure 

formula . 

Records  8;  9;  10  are  repeats  of  records  5>  6,  7 except  the  subscript 

becomes  (l,l,2)  for  the  2nd  longitudinal  entries.  These  three 
records  are  repeated  until  date  is  read  in  for  all  colatitudes 
and  longitudes . 


SAMPLE  DECK  SETUP 

Job  Card  w/  CM140000. 

ATTACH( SOURCE, COLPPX3693818, ID=LANGW) 
FTN(l=SOURCE, B=BC0L) 

attach(tapei,mjdata, id=logicon) 

REQUEST(TAPE8,*PF) 

BCOL. 

catalog(tape8,colldatax36938i8, id=langw) 

7/8/9 

Data  cards  for  COLPP  (page  2) 
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C0LAF1,  revision  0,  subroutine,  PML  140 


CATEGORY: 


Subroutine  for  Ray  Tracing  Program 


TITLE: 


Collision  frequency  subroutine  for  tables  produced  by  COLPP 


LANGUAGE: 


CDC  extended  Fortran  - version  4 


PROGRAMMER: 


B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
February  27,  197& 


DESCRIPTION 


The  collision  frequency  subroutine,  C0LAF1,  was  written  for  compatibility 
with  the  197^-  version  of  the  Jones  raytracing  program  as  used  by  AFCRL-LII. 

(See  PML  121).  It  was  written  in  conjunction  with  a preprocessing  program 
which  supplies  tabular  data  on  permanent  file  or  tape.  The  preprocessing 
program  is  COLPP  and  is  described  in  PML  139*  C0LAF1  differs  from  other 
collision  frequency  subroutines  used  by  the  ray  trace  program  in  that  it  does 
not  compute  the  derivatives  of  the  electron  collision  frequency.  This  requires 


modifications  to  the  index  of  refraction  subroutine  as  well.  This  subroutine 


was  designed  to  be  used  with  a specially  modified  version  of  the  index  of 
refraction  subroutine  AHWFNC  in  which  the  imaginary  part  of  the  index  of  refraction 
is  used  only  for  the  evaluation  of  the  absorption. 


INSTRUCTION  SET 


Since  the  computation  of  the  absorption  requires  a large  amount  of  additional 
core  storage  and  increases  the  computation  time,  subroutine  C0LAF1  should  be 
kept  on  a separate  file  and  loaded  only  when  the  computation  of  the  absorption 
is  desired.  This  will  result  in  a warning  that  COLFRZ  is  an  unsatisfied  external, 


but  no  execution  error  will  be  encountered. 


The  data  used  by  subroutine  C0LAF1  is  described  under  FILE  DESCRIPTIONS  and  is 
referenced  by  local  file  name  TAPE8.  This  is  the  file  produced  by  the  pre- 
processing program  COLPP  referred  to  above. 
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Subroutine  COLAFl  uses  the  following  information  from  the  ray  tracing  program: 


EARTH R 


radius  in  km. 
colatitude  in  radians 
longitude  in  radians 


Position  for  which  the 


r electron  collisi 
is  desired. 


ion  frequency 


(Also  W(4).)  The  radius  of  the  earth  in  km. 
(Also  W(6) . ) The  transmission  frequency  in  MHz. 
A constant  with  value  2 "TP. 


The  subroutine  then  returns  the  following  quantities. 

MODZ  - an  alphanumeric  identifier  which  gives  the  name  of  collision 

frequency,  subroutine  COLAFl  lor  print  out  purposes. 

Z - the  refractivity  due  to  collisions  with  neutral  and  ionized 

molecules.  (dimensionless) 

STORAGE  REQUIRED 


Using  COLAFl  to  compute  t-he  absorption  requires  an  additional  31.000  octal 
words  of  core  storage. 

ALGORITHM 

Subroutine  COLAFl  reads  in  tables  of  >,  -r,  . andotT  as  a function  of 
h,  9,  and  0 where  h is  the  height  above  the  earth's  surface  and  0 and  0 are 
colatitude  and  longitude  in  dipolar  geomagnetic  coordinates.  The  refractivity 
due  to  collisions  is  computed  as  follows: 

Z = — ^ 

2'rrt  x io6 


where 


Z is  the  refractivity  due  to  the  collision  of  electrons  with 
neutral  and  ionized  molecules. 

'U  is  the  collision  frequency  in  collisions/sec. 
f is  the  transmission  frequency  in  MHz. 
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'V 


= 1/ 


+ v/  . 
^ei 


where 


W is  the  collision  frequency  with  neutral  molecules  in 
^ en 


. is  the  collision  frequency  with  ionized  molecules  in 
ei 


collisions/sec.  This  is  given  by  input  tables, 
is  the  co 11 is ic 
collisions/sec , 

5 -5N 


^ei 


log 


220.  (oC T ) 

n 


(<XT  ) 
v n' 


3/2 


N 


1/3 


where 


Ng  is  the  electron  density  in  electrons  per  cc.  This  is 


obtained  from  the  electron  density  subroutine. 


oC  is  the  ratio  of  electron  to  neutral  temperature 


T is  the  neutral  temperature  in  K. 
n 


The  electron  temperature  t<Tnis  obtained  from  the  input  tables.  For  details 
on  how  it  is  generated,  see  PML  1 39 • 


Table  interpolation  for  c<T  is  linear  in  h,  0,  and  0 while  interpolation  for 


"Jj  is  linear  in  0 and  0 and  logarithmic  in  h in  the  following  sense.  If  we 


have  interpolated  in  0 and  0,  we  have  0,0)  and  l'/en(h^  + j >©>0)  • We  then 


interpolate  for  y/en(h,0,0)  as  follows: 


7/en(h'9^ 


= exp  i 


loge(l/en(h.,9,V))  + (h  _h 


i-y 


i+1  i 


(i°ge(l/en(h.+1,e,0))  - ioge(v 


>n(hi,e,0))j 


where  h < h < n 

i ~ i+1 


1 1 
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Subroutine  COLAFl  is  valid  only  in  the  range  of  height  values  for  which  the 
data  is  supplied  by  COLPP.  An  extrapolation  is  made  using  the  first  two 
table  points  for  values  of  height  greater  than  or  equal  to  80  km  but  less 
than  the  first  table  entry.  Below  this  the  collision  frequency  remains  a 
constant.  It  is  also  assumed  to  be  a constant  equal  to  the  last  available 
table  entry  beyond  the  upper  limits  of  height  and  the  table  limits  in  colatitude 
and  longitude. 

Since  the  computation  of  the  collision  frequency  of  electrons  with  ionized 

molecules,  depends  on  knowing  the  electron  density,  the  refractivity  due  to 
electron  density  must  be  computed  prior  to  calling  COLAFl.  This  is  done  in 
the  ray  tracing  program  but  care  should  be  taken  to  see  that  this  is  done  in 
any  other  use  of  COLAFl  such  as  that  collision  frequency  profile  plotting 
program,  COLPLT.  (See  PML  l4l.) 

TIMING 


Computation  of  absorption  using  COLAFl  increases  the  execution  time  by 
approximately  36$. 

ERROR  MESSAGES 


None  . 


SUBROUTINES 


None  . 


ACCURACY 


The  accuracy  of  COLAFl  is  dependent  on  the  interval  chosen  for  the  grid  para- 
meters of  the  input  table.  For  the  most  part  the  input  quantities  and  o<.T 

are  not  subject  to  large  variations  in  colatitude  and  longitude.  The  variation 
of  ~Uen  with  height  is  great  especially  in  the  region  below  200  km.  In  this 
area  the  spacing  at  data  points  becomes  more  critical. 
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FILE  DESCRIPTIONS 

COLAF1  reads  data  trom  TAPE8  which  is  either  a tape  or  a permanent  file. 

Data  is  read  in  only  once  in  the  course  of  a program  execution.  This  file 
is  created  by  collision  frequency  preprocessing  program,  COLPP,  as  described 
in  PML  139*  Subroutine  COLAFl  never  writes  on  TAPES. 

TAPES  - a file  of  three-dimensional  tables  of  information  needed 

to  compute  collision  frequency.  This  file  is  unformatted. 

Record  1:  NHT,  NTH,  NPH 

NHT  - The  number  of  height  entries  (<  30) 

NTH  - The  number  of  colatitude  entries  (<  10) 

NPH  - The  number  of  longitude  entries  (<  12) 

Record  2:  (HT(l),  I = 1 , NHT ) 

This  is  the  table  of  height  values  in  km. 

Record  3:  (TH(j),  J = 1,NTH) 

This  is  the  table  of  colatitude  values  in  radians. 

Record  k:  (PH(K),  K = 1,NPH) 

This  is  the  table  of  longitude  values  in  radians. 

Record  5:  (GNN(l,l,l),  I = 1 , NHT ) 

where  GNN  is  ~y  , the  number  of  collisions/sec.  with 
en 

neutral  molecules. 

Record  6:  (AT(l,l,l),  I = 1. NHT) 

where  AT  is  </.  T , the  electron  temperature  in  °K. 

M 

Record  7:  (GEN(l,l,l),  I = 1,NHT) 

where  GEN  is  the  collision  frequency  using  the 

pressure  formula. 

Record  8;  9>  10  are  repeats  of  records  5,  6,  7 except  the 

subscript  becomes  (l,l,2)  for  the  2nd  longitudinal  entries. 
These  three  records  are  repeated  until  data  is  read  in 
for  all  colatitudes  and  longitudes. 
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SAMPLE  DECK  SETUP 


Job  Card  with  an  additional  jlOOO  words  of  storage 
ATTACH ( BRAY, BRAYTRACEX3b938l8, ID=  LANGW ) 

ATTACH ( BCOL. BCOLAF1X3693818, ID= LANGW) 
ATTACH(TAPE6,ELECTDATAX3693818, ID= LANGW) 

ATTACH( TAPES, COLLDATAX36938I8, ID=  LANGW  ) 
LDSET(PRESET=ZERO) 

LOAD (BRAY) 

LOAD(BCOL) 

EXECUTE(NITIAL) 

7/8/9 

Data  Cards 

6/T/8/9 


where  BRAYTRACE 
BC0LAF1 
ELECTDATA 
and  COLLDATA 


is  a permanent  file  containing  the  binary  version  of  the 
ray  trace  program  without  a collision  frequency  subroutine, 
is  a permanent  file  containing  the  binary  version  of 
subroutine  C0LAF1, 

is  a permanent  file  containing  any  necessary  electron 
density  data, 

is  a permanent  file  containing  the  information  specified 
under  FILE  DESCRIPTIONS.  (See  above.) 
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NAME: 

CATEGORY: 

TITLE: 

LANGUAGE: 

PROGRAMMER: 

DATE: 


COLPLT,  revision  0,  program,  PML  lUl 
Plotting  program  for  use  with  ray  tracing  program 
Collision  frequency  profile  plotting  program 
CDC  extended  Fortran  - version  2 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
March  1,  197o 


DESCRIPTION 


Program  PROPLT  may  be  used  to  plot  collision  frequency  profiles  for  any 
collision  frequency  subroutine  used  by  the  ray  tracing  program.  These  plots 
are  self  scaling  and  need  no  input  other  than  the  (0,(2)  location  for  which 
the  profile  of  collision  frequency  vs.  height  is  desired  and  the  input  required 
by  the  collision  frequency  subroutine  and  the  electron  density  subroutine  if 
such  a subroutine  is  required  for  collision  frequency  computation.  The 
collision  frequency  subroutine  and  the  (0,0)  location  will  be  indicated  on 
the  plot. 

INSTRUCTION  SET 

Input  to  program  COLPLT  is  made  through  the  W-array  in  the  same  manner  as  for 
the  ray  trace  program  RAYTRACEBL.  (See  PML  121.)  The  program  requires  any 
input  required  by  the  collision  frequency  subroutine  such  as  area  W250-299 
and  TAPE8.  It  also  requires  any  input  needed  for  a companion  electron  density 
subroutine  such  as  WlOO-1^9  and  TAPE6  if  such  a subroutine  is  needed.  To 
determine  the  input  needed  see  Attachment  2 of  PML  lh 1 . The  program  establishes 
the  earth's  radius  at  6370  km.,  but  this  may  be  overridden  by  input  to  W2 . 

The  user  must  supply  the  following  quantities: 

W2  Geomagnetic  colatitude  of  the  transmitter 

W5  Geomagnetic  longitude  of  the  transmitter 


1 
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Please  note  that  this  differs  from  the  definitions  of  WU  and  W5  in  the  ray 
trace  program,  where  Wm  is  the  geographic  latitude  of  the  transmitter  and 
W5  is  the  geographic  longitude  of  the  transmitter. 


Data  may  be  entered  into  the  W-array  in  any  order  but  each  card  may  contain 
only  one  data  entry.  If  two  cards  contain  data  for  the  same  W-array  item 
then  the  last  card  entered  will  take  precedence.  W-array  cards  should  be 
entered  in  the  following  format. 


Cols  1 - 3 

Cols  1+  - 17 
Col  18 
Col  19 


Col  20 


Col  21 


The  number  of  the  W-array  entry  (Do  not  enter  "W") 

The  value  to  be  entered.  (Be  sure  a decimal  point 
is  included.) 

A "1"  in  this  column  indicates  that  the  entry  is  in 
degrees . 

A "1"  in  this  column  allows  earth  centered  angles  to 
be  given  in  great  circle  distance  along  the  ground 
in  km.  (For  example  if,  instead  of  specifying  a 
latitude,  one  could  instead  give  a distance  from  the 
equator . ) 

A ”1"  in  this  column  indicates  that  the  data  entry  is 
in  nautical  miles  instead  of  km. 

A "1"  in  this. column  indicates  that  the  data  entry  is 
in  feet  instead  of  km. 


Cols  22  - 80  - May  be  used  for  comments. 


Entries  to  the  W-array  should  be  followed  by  a card  with  Cols  1-3  blank  to 
indicate  that  all  data  for  the  W-array  has-been  entered. 

For  each  profile  desired  new  values  may  be  entered  to  the  W-array  for  the 
location  (9,0)  and  the  collision  frequency  subroutine  but  they  must  be  followed 
by  a blank  card.  If  new  values  are  not  entered  for  a particular  quantity  then 
the  previously  assigned  value  is  used.  Do  not  input  W6,  the  transmission 
frequency,  as  this  must  be  set  to  1. 
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Output  in  each  case  will  be  a profile  plot  of  the  log  to  the  base  10  of  the 
collision  frequency  in  collision/sec.  versus  height  above  the  earth's  surface 
in  km.  If  the  value  of  the  log^  of  the  collision  frequency  exceeds  20,  the 
information  will  be  printed  instead  of  plotted.  A sample  profile  plot  is 
given  in  Attachment  1. 

STORAGE  REQUIRED 

The  amount  of  storage  required  varies  with  the  collision  frequency  and 
companion  electron  density  subroutine  used.  For  collision  frequency  subroutine 
C0LAF1  used  with  electron  density  subroutine  Elb^b , the  storage  required  is 
200,000  octal  words.  This  should  represent  a worst  case. 

ALGORITHM 

Not  applicable . 

SPECIAL  CAUTIONS  AND  FEATURES 


The  input  to  Wk  and  W5  differs  from  that  used  by  RAYTRACEBL  in  that  W4  is  in 
geomagnetic  colatitude  instead  of  North  geographic  latitude  and  W5  is  in 
geomagnetic  longitude  instead  of  geographic  longitude. 

No  input  should  be  made  to  W6,  the  transmission  frequency,  as  this  must  be 
1 MHz  to  obtain  the  proper  collision  frequency. 

TIMING 

Allow  2 seconds  for  load  time  and  .b  seconds  per  plot  depending  on  the 
complexity  of  the  collision  frequency  subroutine. 
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ERROR  MESSAGES 


When  print  out  of  the  table  of  height  versus  plasma  frequency  occurs,  it 
is  because  the  values  exceeded  allowable  plotting  bounds. 

Any  other  error  messages  are  from  the  AFCRL/CALCOMP  plotting  software  or 
the  collision  frequency  subroutine. 

SUBROUTINES 

COLFRZ  This  is  a collision  frequency  subroutine  normally  used  by 

RAYTRACEBL.  Given  a particular  value  of  (r,0,0)  it  will  return 
the  collision  frequency  and  its  derivatives  via  labeled  common 
area  /ZZ/. 

ELECTX  This  is  called  by  COLPLT  in  case  the  collision  frequency  sub- 
routine COLFRZ  must  be  supplied  the  electron  density.  If  a 
particular  collision  frequency  subroutine  does  not  need  the 
electron  density,  then  a dummy  subroutine  should  be  supplied. 

Other  subroutines  called  are  AFCRL  plotting  software.  Plotting  subroutines 
used  are:  PLTID3,  PLOT,  ENDPLT,  AXIS,  LINE,  SYMBOL,  and  NUMBER. 

ACCURACY 


Points  are  obtained  every  5 km.  in  height.  Straight  line  connections  are 
plotted  between  points. 

COMMENTS  ON  USAGE 


This  program  was  written  for  collision  frequency  subroutines  which  must  have 
the  electron  density  for  their  calculations.  If  an  electron  density  calculation 
is  not  required  for  a particular  collision  frequency  subroutine  a dummy  electron 
density  subroutine  must  still  be  supplied.  Such  a subroutine  would  be: 


-_.k  - 


SUBROUTINE  ELECTX 

RETURN 

END 
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FILE  DESCRIPTIONS 


The  program  card  is  as  follows: 

PROGRAM  COLPLT( INPUT, OUTPUT, TAPED, TAPE8,TAPE4= INPUT) 

TAPE6  and  TAPE8  are  listed  since  there  are  collision  frequency  and  electron 
density  subroutines  which  use  these  files. 


SAMPLE  DECK  SETUP 

Job  Card  with  proper  CM 
FTN(B=BCOLP) 

ATTACH( BRAY, BRAYTRACEX3693818, ID= LANGW ) 
ATTACH ( BCOLF , BCOLAF IX36938 18 , ID=  LANGW ) 
ATTACH(TAPE6,VAR2EXPX36938l8,ID=LANGW) 
ATTACH (TAPE8 , COLDATX369  38 18 , ID=  LANGW ) 
ATTACH ( PEN , ONLINEPEN ) 

LIBRARY(PEN) 

LDS  ET ( PRES  ET=ZERO ) 

LOAD(BCOLP) 

S LOAD ( BRAY, EII+99I+,  INTER3 ) 

LOAD (BCOLF) 

EXECUTE (COLPLT) 

DISPOSE( PLOT, * OL) 

EXIT. 

DISPOSE(PLOT,*OL) 

7/8/9 

Source  deck  of  COLPLT 

7/8/9 

Input  to  COLPLT 

6/7 /8/9 
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NAME: 

CATEGORY: 

TITLE: 

LANGUAGE : 

PROGRAMMER: 

DATE: 


TRNSGN,  revision  0,  function,  PML  lb2 
Antenna  gain  simulation  of  a transmitting  antenna 
Antenna  Gain  for  a Logarithmic  Antenna 
CDC  extended  Fortran  - version  4 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
June  7,  1976 


] 

I 

, 1 

: i 


DESCRIPTION 

Function  TRNSGN  returns  the  gain  in  decibels  of  a logarithmic  antenna  when 
given  an  elevation  angle,  an  azimuth  angle,  and  a frequency  of  transmission. 

The  antenna  gain  is  modeled  on  the  curves  given  in  Attachments  1 and  2. 

INSTRUCTION  SET 

To  obtain  the  gain  in  decibels  of  the  transmitter,  use  function  TRNSGN(EL,AZ,F) 
where 

EL  is  the  elevation  angle  in  radians. 

AZ  is  the  azimuth  angle  in  radians  in  the  dipolar  coordinate 
system  with  boresight  at  azimuth  angle  o4.88°  dipolar. 

F is  the  frequency  in  MHz. 

Values  of  TRNSGN  range  from  + l4  to  -25  db.  This  function  is  only  valid  for 
frequencies  between  8 and  28  MHz.  Below  8 MHz  the  value  of  the  gain  is  that 
for  8 MHz;  and  above  28  MHz  the  value  of  the  gain  is  that  for  28  MHz.  Function 
TRNSGN  has  a common  area  /KEY/  with  two  variables:  G and  GELF. 

G is  the  gain  solely  due  to  the  azimuth  pattern  or  Attachment  2.  To  obtain 
the  figures  given  in  Attachment  2,  15  decibels  must  be  subtracted  from  G. 

GELF  is  the  gain  solely  due  to  the  elevation  pattern  or  Attachment  1. 
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STORAGE  REQUIRED 

Function  TRNSGN  requires  325  octal  words  of  core  storage. 

ALGORITHM 

Antenna  gain  (G)  as  a function  of  azimuth  (x'),  elevation  (/)),  and 
frequency  (f)  for  the  transmitter. 


Specification  of  the  antenna  gain  solely  due  to  the  elevation  (G„)  is  given 

E ' 

below.  This  is  then  combined  with  the  azimuthal  variation  to  give  G. 


To  determine  G_  we  must  first  interpolate  with  respect  to  frequency  to  find 
E 


the  quantities:  Q } 


HU 


where  ^ is  t*ie  elevation  angle  at  which  power  is  half  that  of  peak  and 
which  is  lower  than  the  elevation  angle  of  peak  power, 
is  the  elevation  angle  of  the  peak  power, 

!HU 


and  q jjTI  is  the  elevation  angle  at  which  power  is  half  that  of  peak  and 


which  is  higher  than  the  elevation  angle  of  peak  power. 
V 
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Below  are  given  the  tables  of  f vs  and  jQ 


HU 


If 


f 

A HL 

/?p 

B HU 

8 

6.5 

13-5 

21.5 

12 

4.6 

9-1 

13.7 

16 

3-5 

7-0 

11.2 

20 

2.8 

5-6 

8.0 

24 

2.65 

4.6 

6.5 

28 

1.9 

4.0 

5.6 

IA 

A 

lt  /3>  /3P 

A = 

cos"1( -7) 

/3p  HL 

v cos  U ■ f) 

/?HU  '^p 

II 

—3 

A 

A ‘ 4p  + ^ 

Angles  are  in  degrees; 
frequency  in  MHz. 


If 


< A 


if 


# * A 


ge  = -10. 


Ge  = -10. 


if  /3h  </3-  A 


I£  A < .6  < A 


Ge  = 10*(cos  -/9)-l)  Ge  = 10* ( cos  A (fi  - )-l.) 


Otherwise  G„  = -10. 
E 


We  then  compute  G as  follows,  converting  c^. ' to  degrees  off  of  boresight,  oC 
= c(  ^ “ 64.88  where  ^ is  &.  ' in  degrees. 
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If  -80  <oC  < 80 

G = (Cf  . v/  cos  1 . 125  tX  ) + Ge)  - 15. 

where 


Cf  = 29  if  f < 13. 

Cl  = 29  + if  13  < f < 20 

Cf  = 28  if  f > 20. 

If  -98.66  > oc.  >.-132 

G = (Cf-  7 cos  2.7(132  +*-  ) ) + G£  - 15. 

where 

Cf  = T if  f < 13 

C = 7 - 0.75  ^-7^  if  13  < f < 20 

f 7 

Cf  = 6.25  iff  > 20. 

If  -132  > £X  > -180. 

G = (Cf  cos  1.7  (132  +oC)  + Ge)  - 15. 
where  is  computed  as  above. 

If  100  < <*1  < 140 

G = (Cf  cos  3 (120  -«.)  + Ge)  - 15. 

where 

Cf  = 4 if  f < 13 

Cf  = 4 - 2(£-^~L]  ) if  13  < f < 20 
Cf  = 2 If  f > 20. 

Otherwise  G = -15-  + G . 

Ci 

If  G <-  -15.  or  G < -10.,  G is  set  to  -15. 
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SPECIAL  CAUTIONS  AND  FEATURES 


While  answers  will  be  given  beyond  the  modeled  frequency  range  of  8 to 
28  MHz,  these  answers  will  not  be  valid.  Angle  arguments  to  TRNSGN  must 
be  in  radians. 

The  function  has  a labeled  common  area  KEY  which  may  be  omitted  if  it 
conflicts  with  other  labeled  common. 

TIMING 


Execution  time  of  TRNSGN  will  vary  with  the  azimuthal  region  desired  but 
is  approximately  2 milliseconds. 

ERROR  MESSAGES 


None, 


SUBROUTINES 


None  . 

ACCURACY 

Attachments  3 and  4 give  a comparison  of  the  antenna  pattern  in  the  azimuthal 
plane  with  figures  from  Attachment  2 superimposed.  In  the  elevation  direction 
G is  exactly  zero  at  the  peak  power  point  and  exactly  -3  at  the  half  power 
points.  A typical  elevation  cross  section  is  given  in  Attachment  5* 

FILE  DESCRIPTIONS 


None. 


SAMPLE  DECK  SETUP 


The  source  deck  of  function  TRNSGN  is  currently  stored  on  permanent  file 
in  SYS  I under  LOGANTX36938;  ,ID=LANGW. 
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NAME: 

CATEGORY: 

TITLE: 

LANGUAGE: 

PROGRAMMER: 

DATE: 


RCVRGN,  revision  0,  function,  PML  143 
Antenna  gain  simulation  of  a receiving  antenna 
Antenna  Gain  for  a Rhombic  Antenna 
CDC  extended  Fortran  - version  4 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
June  8,  1978. 


DESCRIPTION 


Function  RCVRGN  returns  the  gain  in  decibels  of  a rhombic  antenna  when  given 
an  elevation  angle,  an  azimuth  angle,  and  a frequency  of  transmission.  The 
antenna  gain  is  modeled  on  a set  of  antenna  patterns  which  are  attached. 

INSTRUCTION  SET 


To  obtain  the  gain  in  decibels  of  the  receiver,  use  function  RCVRGN(EL,AZ,F) 
where 

EL  is  the  elevation  angle  in  radians 

AZ  is  the  azimuth  angle  in  radians  in  the  dipolar  coordinate 
system  with  boresight  at  azimuth  angle  64.88°  dipolar 
F is  frequency  in  MHz. 

Values  of  RCVRGN  range  from  31*^  to  -5  db  but  may  be  -100  if  a frequency  is 

given  which  is  outside  of  the  values  for  which  the  antenna  patterns  are 

defined.  The  function  is  only  valid  for  frequencies  between  8 and  30  MHz. 

Function  RCVRGN  has  a common  area  /KYR/  with  three  variables:  PPM.  PW . PEI. 

These  variables  correspond  to  P , P , and  P in  the  algorithm  which  follows. 

M PT  E1 


STORAGE  REQUIRED 

Function  RCVRGN  requires  210b  octal  words  of  core  storage. 
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ALGORITHM 

The  algorithm  is  broken  into  two  sections,  the  first  for  the  low  band  of  the 
rhombic  antenna  and  the  second  section  for  the  high  band. 

1.  Equations  for  the  low  band  of  the  rhombic  receiver. 

cL  = azimuth  angle  from  boresight  in  degrees 
= elevation  angle  in  degrees, 
f = transmission  frequency  in  MHz. 

Peak  power  for  all  lobes  is  a function  of  elevation  angle. 

(Pp  + 5) 

RCVRGN  = (p  + 5)  * M - 5- 

T (p  + 5) 

E1 

where  P and  P are  functions  of  elevation  angle  and  frequency. 

PM  E1 

Quantities  needed  to  specify  each  of  the  seven  lobes  are: 

p , (X  , iX  , (X  each  a two  dimensional  table  of  entries 
P ' P’  H'  B 

corresponding  to  5 frequencies  and  lobes  . 

The  rear  lobe  is  a direct  function  of  the  6th  lobe. 

For  each  lobe  tables  are  interpolated  in  frequency  for  the 
above  4 values.  (See  Table  l) 


The  general  equation  for  each  lobe  is: 


T 

log 


f tt  (a-«p) 

■ (Pp+5){co.t  (tto  TjJ 


(Ip_!_£) 

10  vPn  + 5; 


where  C = 


r 


log 


10 


cos 


1r_  (<*h  ~ap) 

2 (<*  -<XP) 


- 5. 
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To  determine  RCVRGN , P and  P must  be  found. 

PM  E1 


To  determine  P as  a function  of  frequency  and  elevation  the  following 
M 

quantities  are  needed. 

PE.  ’ ?E’  PS  ' fin  ’ fin  ’ ft?  ’fin  ’ />B’  /Jn:/?T>  ’ /is  ’far 

1 2 2 0 0 1 1 12  2<i2 


All  are  a function  of  frequency  as  given  in  Table  2. 


If  A Z £ < £r 


PP  = (PE  + 5) 
M 1 


cos 


0-G  ? 

~ I L 

2 \ 'A\  ) 


log 


where  C = 


jV2' 

10  lPE1  + 5 


7r^o  1 

2 /?_  - XL  r 


l08p»1C0S  2 A0  ■ A.J 


| 

-i  1 


If  >3P1  - 


< /3  < /j. 


A 


,p„  = <\  + 5) 


cos 


1 


- 5. 


log 


where  C = 


E1 

10  /P  + 5 

L1 


Al  "A. 

i i TT^  1 1 

log,  ACOS  — — 

10 1 2 /3n  ‘ /3p, 


'i  i 


- 3 


155  - 


PML  143 


If  /?o  < B < fir, 


M 


where  C = 


0-  0. 


<\  + 5> 

d 


rr 


log 


C /^B1  " /^p£ 

I 


'V  + 2 1 

>2 


10  [?E  + 5 


fa  - fa 


Odd 

8‘°  i coa  “ 


I£  /3P  < ft  < (S< 


<P  E.  •%> 

~ cos  77  iv^7  + 


PE.  + PS 

£ 


if  /3s2  < ^ < fa 


(pc  + 5)  cos  ^ 


(/?-  .4  ) 


S2 


2 -_V 


- 5. 


The  rear  lobe  is  generated  as  follows:  OCp  is  always  77"  or  180  . 

fr 


Given  P , & , Cf  , « , we  determine  P , a„  , and  Oi  as  follows. 

Pb  P6  H6  B6  PR  HR  BR 
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Table  1 


Tables  for  azimuth  lobes  for  the  low  band 


qc  I 16.9  I 16.5  | 16.5  I 1-3 -0 

B2 


21.1 


27.0 


12.2 


19.6 


18.8 


o.o 


15.0 


10.0 


18.0 


10.2 


12.2 


12.0 
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Table  2 


22.2  25.0  29.3  30.0 


Power  vs  elevation  for  low  band  of  rhombic. 
Power  is  in  DB,  /3  in  degrees,  f in  MHz. 
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2.  Equations  for  the  high  band  of  the  rhombic  receiver  are  the  same  as  for 
the  low  band  in  azimuthal  variation  except  that  lobe  is  the  predominant 
side  lobe  and  the  rear  lobe  will  be  based  on  it. 

In  describing  the  variation  in  power  with  elevation  for  the  high  band  the 
following  quantities  are  needed.  These  quantities  are  obtained  from  Table  5 . 


where  C 


11 
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For  />J  </5  - /V 


x p 

ppM  ‘ a “ s (A  -A> 


where  a 


PJ  - PI 


For  2/3  - /S  < fi  < 

p3  3 3 


. 1/2  77~  / i 

Pp^  (PE^  “S  2 ‘AAA, 


Z3 


) - 5 


For  2^  -/5  < <A 


•4  ' 4 


= (P„  + 5)  cos1  ^ ^ ( 


Ab„  -/? 


) - 5 ■ 


4 f P4 


For  all  other  p ' s , Pf 


= -5- 


The  quantity  P is 


determined  in  the  same  manner  as  for  the  low  band  except 


that  the  values  given  in  Table  4 are  used  as  a function  of  frequency. 

These  quantities  are  interpolated  from  Table  4 as  a function  of  frequency. 
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SPECIAL  CAUTIONS  AND  FEATURES 

Function  RCVRGN  is  only  valid  for  frequencies  between  8 and  30  MHz.  Outside 
of  this  range  a value  of  -100  will  be  returned. 

Values  of  azimuth  and  elevation  are  to  be  given  in  radians  and  the  azimuth 
is  assumed  to  be  in  the  geomagnetic  dipolar  system. 

Computation  at  16  MHz  is  made  on  the  high  band  antenna. 

TIMING 

Each  use  of  function  RCVRGN  takes  approximately  2 milliseconds  of  central 
processor  time. 

ERROR  MESSAGES 

None  . 

SUBROUTINES 
None  . 

ACCURACY 

The  model  of  the  azimuthal  antenna  patterns  compares  very  well  with  the  original. 
The  elevation  model  is  not  quite  as  good.  Actual  and  modeled  patterns  are 
given  in  Attachments  1 to  10. 

FILE  DESCRIPTIONS 

Not  applicable. 

SAMPLE  DECK  SETUP 

The  source  deck  of  RCVRGN  is  presently  on  System  X permanent  file  storage 
under  RHOANTX3693818,  ID=LANGW . 
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Attachment  1 - Specification  of  Directivity  Gain  vs.  Azimuth 

Angle  at  8 MHz,  Low  Band. 


AZIMUTH  ANGLE  IN  DEGREES  ON  PEAK  OF  ELEVATION  PATTERN  (»0*  ELEVATION  ANGLE) 


Attachment  3 - Specification  of  Directivity  Gain  vs.  Azimuth 

Angle  at  MHz,  Low  Band. 


PML  143 


aziuuth  ANGLE  in  0CCREE3  on  peak  of  ELEVATION  PATTERM  (« 4.3° ELEVATION  angle) 


Attachment  5 • Specification  of  Directivity  Gain  vs.  Azimuth 

Angle  at  16  MHz,  High  Band. 


ZIMUTH  ANGLE  IN  OEGSEES  ON  PEAK  OF  ELEVATION  PATTER*  («  C.2*  ELEVATION  ANGLE) 


Attbrhmejnt  6 ^iodelj  of  Directivity  Sain  vs ; Aziinutb  : 


Attachment  7 - Specification  of  Directivity  Gain  vs.  Elevation 

Angle  at  12  MHz,  Low  Band. 
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ANGLE  ON  80NE  SIGHT  IN  CEGR 


O IPs 

m oj  < 
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VERTICAL  ANGLE  ON  BORE  SIGHT  in  0EGREE3 


NAME: 

CATEGORY: 

TITLE: 

LANGUAGE: 

PROGRAMMER: 

DATE: 


GPMT,  Revision  0,  program,  PML  1L4 

Plotting  and  data  sorting  program  for  ray-trace  program 
Minimum  Group  Path  Trace  Selection  and  Plotting. 

CDC  extended  Fortran  - version  L 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
June  30,  1976 


DESCRIPTION 

Program  GPMT  determines  the  minimum  group  path  trace  for  both  1-hop  reflections 
and  90°  angles  of  incidence  to  enhanced  magnetic  field  lines.  The  program 
prints  and  plots  the  minimum  trace  and  creates  input  data  for  the  ray-tracing 
program  to  compute  the  rays  necessary  for  computation  of  the  power  loss  by 
program  POWER  (See  PML  1^5).  Group  path  data  of  a particular  frequency  and 
azimuth  angle  of  transmission  is  examined  as  a function  of  elevation  angle.  All 
relative  minima  in  group  path  length  are  selected  for  minimum  group  path  trace. 
Also,  considered  as  a minimum  trace  point  is  the  elevation  angle  which  is  part 
of  a decreasing  function  when  che  next  elevation  angle  shows  a penetrated  ray. 

In  power  computations  these  rays  have  been  shown  to  have  comparable  signal 
strength  to  the  relative  minima  rays. 

Plots  and  printouts  are  grouped  so  that  all  frequencies  for  a given  azimuth 
angle  are  given  one  set  of  axis  or  one  printed  table.  Points  on  plots  are 
connected  to  those  points  having  the  closest  elevation  angle  to  the  points  for 
the  previous  frequency. 

The  program  is  structured  in  such  a way  that  data  is  accumulated  in  tables  from 
previous  runs  of  both  GPMT  and  POWER.  If  for  a given  minimum  group  path  ray, 
the  power  has  not  been  previously  computed,  an  input  case  for  the  ray-tracing 
program  will  be  set  up  to  compute  the  absorption  for  the  ray  at  given  frequency, 
azimuth  angle,  and  elevation  angle.  It  will  also  prepare  input  cases  to  compute 
the  paths  for  three  nearby  rays  for  the  spreading  computation. 
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INSTRUCTION  SET 

To  use  program  GPMT,  a file  of  rays  refered  to  as  TAPE7  must  previously  have 
been  generated  by  the  ray-tracing  program.  This  file  will  contain  information 
on  the  starting  point,  points  where  the  ray  is  perpendicular  to  magnetic  field 
lines,  apogee  points,  and  points  where  the  ray  is  at  the  receiver  height  which 
for  this  case  is  the  ground.  Since  all  rays  for  a particular  minimum  group 
path  trace  may  not  be  run  at  the  same  time,  there  is  provision  for  adding  this 
TAPE7  input  to  previous  runs  made  on  GPMT  or  POWER.  This  is  through  TAPE44, 
an  input  tape  which  contains  the  previous  output  tables.  The  program  will  add 
new  information  from  TAPE7  to  the  existing  TAPE44  and  will  produce  a composite 
plot,  printout,  and  TAPE66  which  can  then  be  used  as  a new  TAPE44  or  as  input 
to  program  POWER.  These  tapes  will  be  explained  in  more  detail  under  FILE 
DESCRIPTIONS.  TAPE7  and  TAPE44,  if  available,  are  the  only  input  required  by 
program  GPMT. 

Output  from  program  GPMT  consists  of  the  aforementioned  TAPE66,  a TAPE'S  which 
becomes  INPUT  to  the  ray-tracing  program,  printed  and  plotted  output.  A 
schematic  of  the  interrelation  between  program  GPMT,  POWER,  and  the  ray-tracing 
program  is  given  in  Figure  1. 

The  printed  output  consists  of  a table  for  each  azimuth  which  is  titled  bv  the 
last  fourwords  in  the  ID  title  of  the  original  ray-trace  run  given  on  TAPE?. 

Sample  printed  output  is  given  in  Attachment  1.  The  second  word  of  this  title 
is  a five  letter  code  indicating  the  electron  density  model  used.  The  third 
and  fourth  words  of  the  title  give  the  time  and  date  of  the  original  ray- tracing 
run  from  which  TAPE7  was  created.  The  azimuth  given  in  the  title  is  in  degrees 
and  is  in  the  same  coordinate  system  as  the  azimuth  initially  given  to  the  ray- 
trace  program.  The  system  is  usually  geographic,  but  it  can  be  dipolar  geomagnetic. 
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Figure  1:  Flow  diagram  of  interaction  between  the  ray-tracing  program, 

program  GPMT,  and  program  POWER. 
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The  table  entries  are: 

1.  Frequency  of  transmission  in  MHz. 

2.  One  of  two  codes  telling  which  case  we  are  dealing  with; 

90DEG  - Backscatter  from  perpendicular  magnetic  field  lines 
RCVR1  - Ground  backscatter  for  the  first  hop. 

3.  Group  path  length  in  km.  to  the  point  of  backscatter. 

4.  Elevation  angle  of  transmission  in  degrees. 

5.  Spread  losses  in  db  including  both  directions. 

A value  of  -200  indicates  that  this  quantity  is  not  yet  available.  (This 
and  all  the  remaining  quantities  will  only  be  available  for  information 
from  TAPE^ij-  which  has  been  previously  processed  by  program  POWER.) 

6.  Absorption  loss  in  db  as  computed  by  the  ray-tracing  program.  A value  of 
-200  indicates  that  this  quantity  is  not  yet  available. 

7.  Backscatter  loss  in  db  which  may  actually  constitute  a gain  since  it  is 
T~.A  where  T~  is  the  backscatter  coefficient  and  A is  the  area  illuminated. 

A value  of  zero  indicates  that  this  quantity  is  not  yet  available. 

8.  Height  in  km.  of  the  point  of  backscatter  in  the  90DEG  case  or  the  point 
of  apogee  in  the  ground  backscatter  case.  A value  of  zero  indicates  that 
this  and  the  following  two  quantities  are  not  yet  available. 

9.  Accurate  magnetic  colatitude  in  degrees  of  the  point  described  in  item  8. 

10.  Accurate  magnetic  longitude  in  degrees  of  the  point  described  in  item  8. 

11.  Azimuth  deviation  from  the  original  azimuth  in  degrees. 

Other  printed  output  includes  the  message:  TAPE66  HAS  BEEN  WRITTEN  which 

indicated  the  new  file  has  been  successfully  created.  The  message  END  OF  PLOTS 
should  always  occur  at  the  end  of  a successful  run. 

The  plotted  output  is  titled  with  the  same  information  as  the  printed  output 
which  is  described  above.  Plots  are  of  group  path  length  versus  frequency. 

Points  available  from  90  degree  backscatter  are  indicated  by  a circle  while  those 
from  ground  backscatter  are  indicated  by  a diamond.  Points  are  connected  on 
the  same  basis  of  similar  elevation  angles  of  transmission.  Sample  plots  are 
given  in  Attachment  2. 
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STORAGE  REQUIRED 


GPMT  requires  160000  octal  words  of  storage 


ALGORITHM 


Algorithm  for  determining  the  group  path  minima  for  a given  frequency,  f, 
and  a given  azimuth,  cK.  . 

Let  G^  correspond  to  the  group  path  for  elevation  angle  . 

Let  i = 1 and  A,  =1. 

last 

(1)  A = G.  , , - G. 

new  l+l  1 

If  A • A,  . < 0 and  A > 0,  we  have  a minimum  and  we  save  it. 
new  “Hast  new 


We  the 


n let  i = i + 1,  A,  „ = A > and  return  to  (l). 

’ last  “new  v ' 


Otherwise,  let  i = i + 1, 


If  i > i and  A < 0,  we  save  the  point  as  a minimum  and  terminate 

— max  new  — ’ 

the  search. 

If  i > i and  a >0,  the  search  is  terminated. 

— max  “new 

If  i < i setA,  = A , and: 
max  ^^last  new 

If  Gj  j 4 0,  return  to  (1); 

If  G.  , = 0 and  A >0,  the  search  is  terminated: 

1+ 1 new  ’ 

If  G.  , = 0 and  a < 0,  we  save  the  point  as  a minimum  point 
l+l  new  ~ 

and  terminate  the  search. 


- L85  - 


PML  Ikk 


SPECIAL  CAUTIONS  AND  FEATURES 


At  present  program  GPMT  can  accept  up  to  kO  frequencies  and  10  azimuths. 

If  data  for  more  azimuths  and  frequencies  is  given  on  TAPE7,  an  error  message 
will  be  printed  out  telling  which  frequencies  and  azimuths  were  ignored. 

Program  GPMT  can  be  run  with  no  TAPE4^  or  with  no  TAPE7*  If,  however,  the 
program  is  run  without  a TAPE7,  there  will  be  no  title  on  either  the  plots 
or  the  tables  and,  more  seriously,  the  input  cards  created  on  TAPE88  will  be 
incorrect.  This  is  due  to  the  fact  that  if  no  TAPE7  is  read,  no  information 
will  be  contained  in  the  W-array.  TAPE7  may  be  omitted  if  a plot  and  table 
of  an  existing  TAPEU4  is  desired. 

Program  GPMT  assumes  that  no  more  than  4 minima  will  be  found  for  each  of  the 
two  cases  of  90°  incidence  to  magnetic  field  lines  and  one  hop.  If  there  are 
additional  points  they  will  be  ignored. 

The  program  aiso  assumes  that  no  more  than  10  lines  are  needed  to  connect 
each  of  the  two  cases.  If  this  is  not  the  case  the  points  will  show  up  without 
connecting  lines. 

Program  GPMT  will  stop  looking  for  minima  once  a ray  has  escaped. 

The  Y plotting  axis  is  of  fixed  length.  If  group  path  lengths  greater  than 
5000  km  are  encountered,  a plotting  error  will  result. 

TIMING 


Timing  varies  with  the  proportion  of  points  which  are  taken  from  TAPE?  for 
plotting  against  those  which  are  taken  from  an  existing  TAPE^th.  It  ranges 
from  1.7  seconds  per  hundred  points  with  all  points  coming  from  TAPE4U  to 
3.0  seconds  per  hundred  points  with  all  points  coming  from  TAPE?. 
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ERROR  MESSAGES 

INFORMATION  NOT  SAVED  FOR  I = XXX  FREQ  = XX. XX  J = XX  AZIMUTH  = XX. XX 

This  error  message  is  printed  out  whenever  too  many  azimuths  or  frequencies 
are  provided  from  TAPE7.  Program  GPMT  can  handle  up  to  l|-0  frequencies  and 
up  to  10  azimuths.  If  either  of  these  numbers  is  exceeded  the  above  message 
will  be  printed  where: 

I is  the  number  of  frequencies  attempted.  If  this  is  4l,  the  number 
of  frequencies  has  been  exceeded; 

FREQ  is  the  frequency  in  MHz  of  the  neglected  information; 

J is  the  number  of  azimuths  attempted.  If  this  is  11,  the  number  of 
azimuths  has  been  exceeded; 

AZIMUTH  is  the  azimuth  in  radians  of  the  neglected  information. 

The  information  for  this  particular  frequency  and  azimuth  combination  will  be 
lost  but  the  program  will  proceed  normally. 

ATTEMPT  TO  GAIN  MORE  DATA  WHEN  THERE  IS  NONE. 

This  error  message  occurs  when  subroutine  TPRDR  has  given  the  signal  to 
program  GPMT  that  it  is  finished  reading  TAPE'’  and  program  GPMT  has  called 
it  again.  This  should  not  occur  in  normal  operation.  If  it  does  occur  the 
program  will  stop  with  a call  to  exit. 

FILE  TAPE7  RECORD  XXX  RECORD  MANAGER  ERROR  - U+3 

ERROR  NUMBER  103  DETECTED  BY  IOERR  AT  ADDRESS  C00021 

CALLED  FROM  INPB  = AT  ADDRESS  XXXXXX 

CALLED  FROM  TPRDR  AT  LINE  XX 

CALLED  FROM  GPMT  AT  LINE  30 

ROUTINE  BEOT  ENTERED. 

- 7 - 
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This  error  message  occurs  when  the  last  record  of  the  TAPE7  file  or  tape 
is  incomplete  due  to  a non-standard  ending  on  the  ray  trace  run  such  as 
time  limit  or  operator  drop.  Although  this  is  normally  a fatal  error,  it 
has  been  overridden  by  a call  to  SYSTEMC  and  will  instead  be  treated  by 
subroutine  TPRDR  as  an  end  of  file.  The  program  will  then  proceed  normally. 

SUBROUTINES 


GPMT 


TPRDR 

PRNT(J) 

GPPLT(J) 

PNCHR(J) 

BEOT 

DICOORD 

C0RRGM2 


This  is  the  main  program.  It  reads  any  existing  TAPE44  and  then 
callsTPRDR  and  selects  the  new  minima  from  the  information.  When 
all  new  minima  have  been  found,  they  are  sorted  by  frequency  and 
azimuth.  The  information  is  then  given  one  azimuth  at  a time  to 
PRNT,  GPPLT,  and  PNCHR.  The  combined  information  is  then  written 
on  TAPE66  to  replace  TAPE44. 

This  subroutine  reads  the  desired  information  off  of  the  ray-trace 
tape,  TAPE7,  for  one  frequency  and  azimuth  at  a time. 

This  subroutine  prints  the  output  tables  described  on  pages  2-4 
for  the  Jth  azimuthal  entry. 

This  subroutine  creates  the  plots  shown  in  Attachment  2 for  the 
Jth  azimuthal  entry. 

This  subroutine  creates  the  ray-tracing  input  tape,  TAPES8,  for 
the  Jth  azimuthal  entry. 

This  subroutine  is  the  error  recovery  routine  for  the  Fortran  fatal 
error  103  override,  SYSTEMC,  explained  above.  Subroutine  BEOT  sets 
an  indicator  so  that  subroutine  TPRDR  will  know  an  end  of  information 
exists . 

This  subroutine  converts  geographic  coordinates  to  dipolar  geo- 
magnetic coordinates  when  called  with  a call  to  entry  GTOM  and 
converts  dipolar  geomagnetic  coordinates  to  geographic  coordinates 
with  a call  to  entry  MTOG. 

This  subroutine  takes  points  in  the  geographic  coordinate  system 
and  converts  them  to  accurate  geomagnetic  coordinates.  A call  to 
C0RRGM2  causes  the  transforming  array  to  be  read  in.  For  points  to 
be  converted,  a call  must  be  made  to  CORRGM. 
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Other  subroutines  called  are  AFCRL  plotting  software.  The  plotting 
subroutines  used  are:  PLTID3,  AXIS,  LINE,  NUMBER,  PLOT,  SYMBOL,  and 

ENDPLT.  See  Section  14  of  the  AFCRL  User's  Guide  for  descriptions  of 
these  subroutines. 

ACCURACY 


Not  applicable. 
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COMMENTS  ON  USAGE 


Possible  uses  of  program  GPMT  are  given  in  Figure  1 on  page  3 . In  using 

the  TAPE7  output  from  the  ray-tracing  program,  the  assumption  is  made  that 
all  necessary  elevation  angles  for  a particular  frequency  and  azimuth  have 
been  computed.  It  also  assumes  that  once  one  ray  for  a particular  azimuth 
and  frequency  has  penetrated  the  ionosphere,  all  higher  elevation  angles  will 
also  penetrate. 

FILE  DESCRIPTIONS 


The  program  card  for  GPMT  is  as  follows: 


PROGRAM  GPMT( INPUT, OUTPUT, TAPE4=INPUT, TAPE7, TAPE44, TAPE88 , TAPE6£}  TAPEl  ) 


INPUT  This  is  the  system  input  file  under  normal  operation.  It  is  not 

TAPE4  used  by  program  GPMT  but  is  included  for  future  use. 

OUTPUT  This  is  the  system  output  file  under  normal  operation.  It  contains 
the  output  tables  described  on  pages  2 - 4-  plus  any  error  messages 
from  the  program  or  the  system. 


TAPE7  This  is  an  unformatted  tape  put  out  by  the  ray-tracing  program  from 

which  ray  information  is  obtained  by  GPMT  and  other  ray-trace 
dependent  programs.  It  is  composed  of  the  following  records: 

Record  1:  ID,W,NTYP,N 


ID  an  information  string  of  100  characters  which  identifies  the 
computer  run  made, 

W an  array  of  iKX)  real  numbers  which  contains  all  input  to  the 
program  and  other  information, 

NTYP  an  integer  specifying  the  ray  mode  - ordinary,  extraordinary, 
or  neither  (3,1,2) 

N an  integer  specifying  the  total  number  of  equations  to  be 
integrated . 
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Record  2:  R( 1 ) , R(2) , R(3 ) , IHOP,NWHY( 1 ) , T, (R( i) , 1=4, N) ,SIDEG,F,AZ, EL 


R(l)  is  the  radius  of  the  transmitter  location  in  km, 

R(2)  is  the  colatitude  of  the  transmitter  in  spherical  polar 
coordinates  in  radians, 

R(3)  is  the  longitude  of  the  transmitter  in  spherical  polar 
coordinates  in  radians, 

IHOP  is  zero  to  indicate  the  transmitter  data  is  given  here, 
NWHY(l)  tells  the  reason  for  the  printout;  in  this  case  XMTR  or 
the  transmitter, 

T is  the  group  path  length  in  km, 

l(4)  is  the  component  of  the  wave  normal  in  the  positive  radial 

direction.  It  is  of  magnitude  such  that  the  square  root  of 

the  sum  of  its  square  with  those  of  R(5)  and  R(6)  have  a 

magnitude  equal  to  CO  when  uJ  is  the  angular  wave 

c .n 

frequency (2nf ) , c is  the  speed  of  electromagnetic  waves  in 
free  space,  and  n is  the  phase  refractive  index. 

R(5)  is  the  component  of  the  wave  normal  in  the  positive  © 
direction. 

R(6)  is  the  component  of  the  wave  normal  in  the  positive  <J> 
direct  ion . 

R(7)  is  the  phase  path  length  in  km  if  W(57)  4 0. 

R(8)  is  the  absorption  in  decibels  if  W(58)  4 0. 

R(9)  is  the  doppler  shift  in  Hz  if  W(59)  4 0. 

R(10)  is  the  geometrical  path  length  in  km  if  W(60)  4 0. 


If  any  of  these  last  four  quantities  are  not  requested  then  the  succeeding 
quantities  will  be  moved  up  in  position.  For  instance,  if  phase  path  is  not 
computed  (w(57)=0),  then  R(7)  will  be  absorption,  R(8)  will  be  doppler  shift, 
and  so  on. 

SIDEG  is  the  angle  between  the  magnetic  field  and  the  wave  normal. 

F is  the  transmission  frequency  in  MHz. 

AZ  is  the  azimuth  angle  of  transmission  in  radians  in  the  input 
coordinate  system  which  may  be  dipolar  or  geographic. 

EL  is  the  elevation  angle  of  transmission  in  radians  in  the  input 
coordinate  system. 
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Record  3:  R( 1) ,R(2) ,R(3)> IH0P,NWHY(2, j or  4) ,T, (R( I) , 1=4, N) ,SIDEG,F,AZ, EL 

The  above  record  will  be  given  for  points  along  the  ray  path  where 
the  SIDEG  is  90°,  the  ray  reaches  apogee,  or  the  ray  touches  the 
earth’s  surface.  NWHY(2),  NWHY(3),  and  NWHY(U)  will  be  "90  DEG.", 
"RCVR",  and  "APOGEE",  respectively.  IHOP  will  indicate  the  hop 
that  the  ray  is  presently  on. 

Record  3 will  be  repeated  for  all  such  points  along  the  path  of  this  particular 
ray.  Then  the  next  ray  will  start  with  a record  like  Record  2,  i.e.  with 
IHOP  = 0.  When  all  elevation  angles  for  a particular  azimuth  and  frequency 
have  been  listed,  the  following  record  will  appear: 


Record  n: 


F,AZ,DUM,-1,N, (w( I) , 1=1 , NEQ) 

is  the  transmission  frequency  in  MHz. 

is  the  current  azimuth  angle  in  radians  in  the  input 

coordinate  system. 

is  a dummy  variable  (most  likely  0) . 
is  the  total  number  of  equations  to  be  integrated, 
is  the  W array  described  in  Record  1. 
is  N + 2. 


Records  2 through  n will  be  repeated  until  all  azimuth  and  frequency  combinations 
are  completed  (or  all  rays  for  a particular  W-array  are  given). 

The  following  record  will  then  appear. 

Record  m:  F,AZ,DUM,-2,N, (W(l), 1=1, NEQ) 

where  F,AZ,DUM,N,W,  and  NEQ  are  as  defined  above. 

This  will  be  followed  by  an  end-of-file  or  a new  Record  1 will  be  given  and  the 
process  will  repeat  itself  until  all  W arrays  are  given. 

TAPEU^  This  is  an  input  file  containing  previously  generated  TAPE66  output 
from  GPMT.  It  is  written  in  unformatted  records  and  contains  65 
records  with  the  following  information: 
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Record  1:  NAZ  E , NFRE , FT , AZT 

NAZE  is  the  number  of  azimuth  entries  in  the  AZT  table  (<  10). 

NFRE  is  the  number  of  frequencies  in  the  FT  table  (<  40). 

FT  is  an  array  of  40  frequencies  in  MHz. 

AZT  is  an  array  of  10  azimuths  in  radians  in  the  input 

coordinate  system. 

Record  2:  ((GT(l,J,l),I=l,4o),J=l, 10)  where  GT  is  an  array  of  the 

group  path  length  minima  in  km  for  the  Ith  frequency  entry 
and  the  Jth  azimuthal  entry. 


Record  3:  ( (ELT( I, J, l) , 1=1,40), J=l, 10)  where  ELT  is  an  array  of 

elevation  angles  in  radians  corresponding  to  the  above 
group  paths. 


Record  4:  ((P0WDT( I,.  , i) , 1=1,40) , J=I, 10)  where  POWDT  is  an  array  of 

spreading  losses  in  decibels  corresponding  to  the  above 
group  path  minima. 

Record  5:  ((P0WBS(l,J,l),  1=1, 4o) , J =1, 10)  where  POWBS  is  an  array  of 

backscatter  power  losses  in  decibels  corresponding  to  the 
above  group  path  minima. 

Record  6:  ((P0WAT( I, J, 1),  1=1, 4o) , J=l, 10)  where  POWAT  is  an  array  of 

absorption  losses  in  decibels  corresponding  to  the  above 
group  path  minima. 


Records  2 through  6 are  repeated  increasing  the  third  index  of  each  array  by  1 
until  8 such  sets  are  read.  Records  2-21  will  give  information  concerning  the 
minima  for  the  case  of  90°  incidence  to  magnetic  field  lines.  Records  22-41 
will  give  information  about  1-hop  minima. 


Record  42 
Record  43 
Record  44 


( (HGT( I, J, 1 ) , 1=1, 40) , J= 1 , 10) 

((colat(i,j,i),i=i,4o),j=i,io) 

((clong(i,j,i),i=i,4o),j=i,io), 
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These  three  records  are  repeated  7 more  times  with  the  third  index  increasing 
up  to  8.  HGT,  COLAT,  and  CLONG  correspond  to  the  coordinates  of  a point 
which  in  records  42  to  53  Is  the  point  of  90°  incidence  to  the  magnetic  field 
line  and  in  records  to  65  is  the  point  of  apogee  along  the  1-hop  path. 

Here  HGT  is  the  height  of  this  point  in  km,  COLAT  is  the  colatitude  in  degrees 
in  the  dipolar  magnetic  coordinate  system,  and  CLONG  is  the  longitude  in 
degrees  in  the  dipolar  magnetic  coordinate  system. 

In  general,  information  on  POWDT,  POWBS,  POWAT,  HGT,  COLAT,  and  CLONG  will 
be  available  on  TAPE44  only  if  the  information  was  processed  by  program  POWER 
(PML  145).  Otherwise  POWDT  and  POWAT  will  have  value  -200  and  POWBS,  HGT, 
COLAT,  and  CLONG  will  be  zero. 

TAPE 88  This  is  a formatted  output  file  containing  8-word  records  to 

simulate  punched  card  input  to  the  ray-tracing  program.  Records 
will  be  of  three  basic  types: 

1)  An  identification  record  which  signifies  the  beginning  of 
a case, 

2)  W-array  records,  and 

3)  Blank  records  which  sginify  the  end  of  a case. 


For  each  group  path  minimum  point  identified  by  a frequency  (f),  azimuth  (j(  ), 
and  elevation  ) and  for  which  no  power  has  been  previously  computed  (i.e. 
POWDT  and  POWAT  are  -200.)  four  rays  must  be  traced,  one  with  an  absorption 
calculation.  This  is  accomplished  through  3 ray  tracing  cases.  The  records 
will  be  as  follows: 

Note:  Unless  otherwise  given,  the  format  is  assumed  to  be 

(I3,E14.7,63X). 


CASE  1 . Frequency  is  f(l),  azimuth  is  o<(l),  elevation  is  /^(l). 
Record  1:  ID(L),L=1,8  (8A10) 

where  ID  is  the  identification  string  of  the  original  ray-trace 

run  except  that  ID(6)  will  be  RCVR  if  this  is  to  be  a power  loss 

o 

calculation  for  a 1-hop  case  and  90  DEG.  if  it  is  for  a 90 


- 13  - 


- 194  - 


PML  144 


Record  2:  11,  (X.  ( l) 

where  <£X.(l)  is  the  desired  azimuth  in  radians. 

Record  3:  58,  2. 

to  signal  that  absorption  will  be  computed. 

Record  4:  15,  ( l) 

where  /3(1)  is  the  desired  elevation  angle  in  radians. 

Record  5:  17;  0. 

to  signal  that  only  one  elevation  angle  is  to  be  computed. 

Record  6:  7,  f(l) 

where  f(l)  is  the  desired  frequency  in  MHz. 

Record  7:  1,  W(l) 

where  W(l)  = 1 for  ordinary  rays  and  -1  for  extraordinary  rays. 
Record  8:  2,  W(2) 

where  W(2)  is  the  radius  of  the  earth. 

Record  9:  3,  w(3) 

where  W(3)  is  the  height  of  the  transmitter  above  the  earth  in  km. 
Record  10:  4,  W(4) 

where  W(4)  is  the  latitude  of  the  transmitter  in  radians  in  either 
the  geographic  or  geomagnetic  coordinate  system  depending  on  the 
values  of  W(24)  and  W(25). 

Record  11:  5,  W(5) 

where  W(5)  is  the  longitude  of  the  transmitter  in  radians  in  the 
above  coordinate  system. 

Record  12:  9>  0* 

to  signal  that  only  one  frequency  is  to  be  computed. 
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Record  13:  13,  0. 

to  signal  that  only  one  azimuth  is  to  be  computed. 

Record  14:  22,  W(22) 

where  W(22)  is  the  maximum  number  of  hops. 

Record  15:  23,  W(23) 

where  W(23)  is  the  maximum  number  of  steps  per  hop. 

Record  l6:  24,  W(24) 

where  w(24)  is  the  north  latitude  of  the  north  geomagnetic  pole  in 
the  input  coordinate  system.  If  this  is  7?/2,  then  the  input  system 
is  assumed  to  be  dipolar. 

Record  17:  25,  W(25) 

where  W(25)  is  the  east  longitude  of  the  north  geomagnetic  pole 
in  the  input  coordinate  system. 

Record  18:  4l,  W(4l) 

Record  19:  42,  W(42) 


Record  24:  47,  w(47) 

Records  18  through  24  control  the  ray  integration. 

Record  25:  57,  W(57) 

where  W(57)  tells  whether  or  not  phase  path  is  to  be  integrated. 

Record  26:  71,  W(7l) 

where  W(7l)  gives  the  number  of  steps  between  periodic  printout. 

Record  27:  90,  W(90) 

where  W(90)  gives  the  maximum  group  path  length  in  km  to  be  integrated. 
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Record  28:  201,  W(201) 

where  W(20l)  is  the  gyr of requency  in  MHz  at  the  equator  on  the 
ground  to  be  used  in  the  dipolar  magnetic  field  model. 

Record  29:  2l+9,  W(2l+9) 

where  W(2^9)  is  the  year  to  be  used  in  determining  the  accurate 
magnetic  field. 

Record  30:  Blank  record  indicating  an  end  of  case.  (80x) 

CASE  2.  Frequency  is  f(l),  azimuth  is  £X-(l),  elevation  is  ft  (l)+^ 

Record  31:  ID(L),  L = 1,8  (8A10) 

Same  as  Record  1. 


Record  32:  15,  >3(1)  + ( I 855 


( 1 Ln~  radians  =0.1°) 


where  ft(l)  + 


is  the  desired  elevation  angle  in  radians, 


Record  33:  58,  0. 

to  signal  that  the  absorption  is  not  to  be  calculated. 
Record  3^-:  Blank  record  indicating  an  end  of  case.  (80x) 


CASE  3. 


Frequency  is  f(l),  azimuth  is  t*(l)+  £ , elevations  are 
fi  ( 1 ) and  ft  ( 1 ) + S . 


Record  35:  ID(l),  L = 1,8  (8A10) 


Same  as  Record  1. 


Record  36:  11,  *(1)  + 


where  <x(l)  + Is  the  desired  elevation  angle  in  radians, 


-16  - 


- 197  " 


PML  144 


Record  37:  15,  (1 ) 

where  4/(1)  is  the  initial  elevation  angle  in  radians. 


II 


Record  38:  16,  £ (1)  + 

where /^(l)  + is  the  final  elevation  angle  in  radians, 

Record  39:  17,  j^oo 

where  is  the  elevation  angle  increment  in  radians. 

Record  40:  Blank  record  indicating  an  end  of  case  (80x). 


These  three  cases  are  repeated  for  each  frequency,  azimuth,  and  elevation 
angle  combination  for  which  the  power  is  not  yet  computed  except  that  records 
7 through  29  will  be  omitted  from  all  succeeding  case  l's  since  these  quantities 
do  not  change  value. 


Once  it  is  completed  TAPE88  can  be  used  with  the  ray-tracing  program.  The 
ray-tracing  program,  however,  must  be  capable  of  computing  absorption.  The 
TAPE7  thus  generated  by  the  ray-tracing  program  should  then  be  run  through 
program  POWER. 

TAPE66  This  output  tape  is  identical  in  form  to  TAPE44.  It  does  include 
additional  points  obtained  from  TAPE7 . It  may  be  used  as  TAPE66 
input  to  program  POWER  or  as  TAPE44  input  to  program  GPMT. 

TAPEl  This  is  the  permanent  file  which  contains  the  transformation 

array  for  going  from  geographic  to  accurate  geomagnetic  coordinates. 
It  is  stored  in  both  Systems  I and  II  under  the  file  name  MJDATA 
with  ID  =LOG ICON . 
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SAMPLE  DECK  SETUP 

1.  Setup  for  run  on  a multifile  tape  with  no  existing  TAPE44. 
job  card  with  CM140000  and  TPl 
VSN(MFILE=YOURNO) 

REQUEST(MFILE,MF,E)  ( YOURNO /noring) YOURNAME 

LABEL ( TAPE7 , M =*1F  ILE  , P =1 , R ) 

attach(bgpmt,bgpmk3693818,  id=langw) 

attach(tapei,mjdata, id=logicon) 

attach(pen,onlinepen) 

request(tape44,*pf) 

rewind(tape44) 

request(tape66,*pf) 

REQUEST ( TAPE88, *P  F ) 

library(pen) 

ldset(preset=zero) 

BGPMT . 

DISPOSE (PLOT, *0L) 

CATALOG (TAPE66 , NEWTAPE66X369381 8, ID  =LANGW , RP  =999 ) 

CATALOG (TAPE 88, RAYINX36938I8, ID=LANGW,  RP=999 ) 

EXIT. 

DISPOSE (PLOT, *OL) 

6/7/879 


Here  BGPMTX36938I8, ID=LANGW  is  assumed  to  be  a compiled  version  of 
program  GPMT . 


2.  Setup  for  run  on  a multifile  tape  with  existing  TAPE44. 


job  card  with  CM140000  and  TPl 


VSN(MFILE=YOURNO) 

request(mfile,mf,e) 


( YOURNO / NOR ING ) YOURNAME 
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LABEL  ( TAPE7 , M =MFILE , P =2 , R ) 

ATTACH( BGPMT, BGPMTX36938I 8, ID=LANGW ) 
ATTACH(TAPEl,MJDATA, ID=LOGICON) 

attach(pen,onlinepen) 

attach(tape44,oldtape44x36938i8, id=langw) 

request(tape66,*pf) 

request(tape88,*pf) 

library(pen) 

ldset(preset=zero) 

BGPMT . 

DISPOSE (PLOT, *OL) 

PURGE (TAPE44) 

CATALOG (TAPE66, NEWTAPE66X36938I8, ID=LANGW, RP=999 ) 
CATALOG ( TAPE88, RAYINX36938I8, ID=LANGW, RP=999) 
EXIT. 

DISPOSE (PLOT, *OL) 

6/7/879 


Here  TAPE44  is  purged  since  TAPE66  replaces  it. 


Setup  for  run  on  existing  TAPE44  with  a TAPE7 . 


job  card  with  CM140000 

ATTACH( BGPMT, BGPMTX36938I8, ID=LANGW ) 
ATTACH( PEN, ONL INEPEN ) 

ATTACH  ( TAPE  44,  OLDT APE  44X369381 8,  ID  =LANGW  ) 
ATTACH(TAPE1,MJDATA, ID=LOGICON) 

library(pen) 

LDSET( PRESET =ZERO) 

BGPMT. 

DISPOSE (PLOT, *OL) 
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EXIT. 

D I S POSE ( PLOT, *OL ) 

6/7/8/ 9 

Note  that  neither  TAPE66  nor  TAPE88  are  saved. 

TAPE66  is  not  saved  since  it  will  be  a duplicate  of  TAPE44. 

TAPE 88  cannot  be  saved  because  no  W-array  was  read  in  from  a TAPE7 
and  it  would,  thertfore,  be  invalid. 
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NAME: 

CATEGORY: 

TITLE: 
LANGUAGE : 
PROGRAMMER: 
DATE: 


POWER,  Revision  0,  program,  PML  145 

Companion  program  to  ray-tracing  program  and  program 
GPMT(PML  144) 

Power  Calculations  Along  Minimum  Group  Path  Trace 
CDC  Extended  FORTRAN-vers ion  4 

B.  M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
July  28,  1976 


DESCRIPTION 


Program  POWER  is  a companion  program  to  program  GPMT  (See  PML  144). 
Program  GPMT  determines  the  minimum  group  path  trace  while  program  POWER 
determines  the  signal  strength  for  the  points  of  the  minimum  group  path 
trace.  Program  GPMT  produces  a file  (TAPE88)  of  input  for  the  ray-tracing 
program  which  will  cause  four  rays  to  be  traced  for  each  of  the  minimum 
points,  one  of  which  will  compute  the  power  loss  due  to  absorption.  The 
output  tape  (TAPE7)  of  the  ray-tracing  program  will  then  become  the  input 
tape  for  program  POWER.  Program  POWER  will  compute  the  power  losses  due 
to  spreading  and  backscatter  as  well  as  the  transmitting  and  receiving 
antenna  gains.  These  gains  and  losses  will  be  combined  with  the  absorption 
loss  for  a total  power  loss  figure  in  db. 

INSTRUCTION  SET 

Input  to  program  POWER  consists  of  two  files  or  tapes  which  were 
previously  produced  by  program  GPMT  and  the  ray-tracing  program.  These 
files  are  TAPE66,  which  is  output  from  program  GPMT,  and  TAPE7  which  is 
output  from  the  ray-tracing  program  when  it  uses  TAPE88  (also  produced 
by  GPMT)  for  input.  Figure  1 illustrates  the  relationship  between 
programs  GPMT,  POWER,  and  the  ray-tracing  program. 
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Program 
follows : 

Step  1. 
Step  2. 

Step  3* 
Step  4. 

Step  5* 

Step  6. 
Step  7. 


POWER  is  meant  to  be  part  of  an  iterative  procedure  as 


Rays  are  traced  for  a given  ionospheric  model  for  a 
variety  of  frequencies  and  azimuths  at  sufficiently 
fine  increments  in  elevation  angle.  This  produces 
TAPE7  as  output . 

TAPE7  is  used  by  program  GPMT  in  selecting  the  group 
path  minima.  The  program  produces  an  output  table  and 
plots  - but  also  produces  input  tape  for  the  ray-tracing 
program  (TAPE88)  and  a tape  containing  the  tabular  output 
of  GPMT  which  is  TAPE66. 

The  ray-tracing  program  is  run  using  TAPE88  as  input  and 
produces  a TAPE7  output  which  contains  sufficient  informa- 
tion for  computing  power  loss  for  all  points  along  the 
group  path  minimum  trace. 

Program  POWER  is  then  run  using  this  new  TAPE7  as  input 
along  with  TAPE66  produced  in  Step  2.  It  will  produce  a 
TAPE44  identical  in  form  to  TAPE66  except  containing 
complete  data  on  power  loss  and  the  apogee  height  of  rays. 
Meanwhile  the  user  has  examined  the  plots  from  Step  2 and 
decided  which  other  frequencies  and  azimuths  should  be 
run.  (This  step  may  be  automated  later.) 

The  ray-tracing  program  is  run  for  additional  frequencies 
and  azimuths  producing  another  TAPE7* 

This  new  TAPE 7 along  with  TAPE44  produced  from  Step  4 is 
then  used  as  input  to  program  GPMT.  Program  GPMT  will 
extract  new  minimum  points  from  the  TAPE7  data  and  add 
them  to  the  table  given  on  TAPE44  to  produce  a new  TAPE66 
and  plots.  The  input  tape  for  the  ray-tracing  program 
(TAPE 88)  will  only  contain  runs  for  power  information  for 
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Figure  1:  Flow  diagram  of  interaction  between  the  ray-tracing  program, 

program  GPMT,  and  program  POWER. 
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those  points  for  which  power  has  not  previously  been 
computed.  This  will  usually  be  those  new  points  added 
from  TAPE7,  but  several  composition  runs  could  be  made 
before  and  power  calculations  are  performed. 

Step  8.  At  this  point  Steps  3 through  7 are  repeated  until  the 

user  decides  in  Step  5 that  all  the  necessary  frequencies 
and  azimuths  have  been  investigated. 

Output  from  program  POWER  is  in  two  forms : 

1)  a printed  table  which  will  be  described  below  and 

2)  TAPE44,  an  unformated  tape  containing  most  of  the 
tabular  information.  TAPE44  is  described  under 
FILE  DESCRIPTIONS. 

The  printed  output  consists  of  a table  for  each  azimuth  which  is 
titled  by  the  last  four  words  in  the  ID  title  of  the  original  ray-trace 
run  given  on  TAPE7*  Sample  printed  output  is  given  in  Attachment  1. 

The  second  word  of  this  title  is  a five  letter  code  indicating  the 
electron  density  model  used.  The  third  and  fourth  words  of  the  title 
give  the  time  and  date  of  the  original  ray-tracing  run  from  which  TAPE7 
was  created.  The  azimuth  given  in  the  title  is  in  degrees  and  is  in 
the  same  coordinate  system  as  the  azimuth  initially  given  to  the  ray- 
trace  program.  The  system  is  usually  geographic,  but  it  can  be  dipolar 
geomagnetic . 

The  table  entries  are: 

1.  Frequency  of  transmission  in  MHz. 

2.  One  of  two  codes  telling  which  case  we  are  dealing  with; 

90DEG  - Backscatter  from  perpendicular  magnetic  field  lines 
RCVRl  - Ground  backscatter  for  the  first  hop. 

3.  Group  path  length  in  km.  to  the  point  of  backscatter. 

4.  Elevation  angle  of  transmission  in  degrees. 

5.  Spread  loss  gives  the  two  way  loss  due  to  inverse  square  law 
spreading  and  focusing  and  defocusing  effects.  It  is  computed 

" 4 ' 
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using  the  four  ray  approach  and  assuming  that  backscatter  will 
follow  a path  similar  to  the  original  transmission.  Computation 
of  the  spreading  loss  is  covered  in  more  detail  in  TM-23.  In  the 
notation  of  TM-23  what  we  have  listed  as  spread  loss  is 


m20mlo*iolffi)  or  10’log 


where  A is  the  flux  tube  cross-sectional  area  at  the  backscatter  point, 
P 

If  a value  of  -200.  is  listed,  this  quantity  has  not  been  computed. 
Absorption  loss  is  taken  directly  from  the  output  of  the  ray- 
tracing program.  The  absorption  in  db  is  integrated  along  the  ray 
path  and  then  doubled.  Details  of  this  calculation  are  also  found 
in  TM-23,  pages  2-5*  The  quantity  listed  here  corresponds  to  twice 
quantity  A in  TM-23.  If  a value  of  -200.  is  listed  this  value  has  not 
been  computed. 

Backscatter  loss  in  most  of  the  cases  is  actually  again  due  to  the 
backscatter  area  involved.  The  backscatter  loss  is  10.1og^9~ 
where  (7“  = • A.  0"  is  the  total  backscatter  cross-section,  A is 

the  total  area  of  the  backscatter  region  intercepted  by  the  flux 
tube,  and  0"  is  dependent  on  whether  the  backscatter  is  from  the 
ground  or  field  aligned  ionization.  If  backscatter  is  from  the  ground, 


^o  = 


i in  V 


0.001 

T 


+ s in^  f 


+ 10*exp 


tan2/'' 


if  f >10“5 

= 10-5°  if  f<  10‘5 

where  ¥ is  mean  flux  tube  angle  of  arrival  in  radians. 

If  the  backscatter  is  from  field  aligned  ionization,  0“  = 3-5» 

A value  of  -50  usually  indicates  that  backscatter  has  not  been  computed. 
Transmitter  gain  is  the  gain  of  the  transmitting  antenna  which 
may  vary  with  transmission  frequency,  azimuth  angle,  and  elevation 
angle.  This  is  obtained  from  a function  routine  TRNSGN.  One 
such  routine  for  a logarithmic  antenna  is  given  in  PML  142.  If 
the  antenna  pattern  is  not  known  or  if  the  antenna  effects  are  to 
be  ignored,  this  is  simply  set  to  zero. 


211  - 


PML  145 


9.  Receiver  gain  is  the  gain  of  the  receiving  antenna  which  may  vary 
with  the  transmission  frequency,  azimuth  angle,  and  elevation  angle. 
This  is  obtained  from  a function  routine  RCVRGN.  One  such  routine 
for  a rhombic  antenna  is  given  in  PML  143-  If  the  antenna  pattern 
is  not  known  or  if  the  antenna  effects  are  to  be  ignored,  this  will 
be  zero. 

10.  The  total  gain  is  the  sum  of  all  the  previous  gains  and  losses  with 

A 2 

one  additional  quantity  added  in.  This  quantity  is  10»log  A 

iU  417 

Thus  the  total  gain  should  correspond  to  10’log^  P^  as  given  by 
Georges  and  Stephenson  except  that  PQ  = 1 and  absorption  losses  are 
also  included. 

11.  Height  in  km.  of  the  point  of  backscatter  in  the  90DEG  case  or  the 
point  of  apogee  in  the  ground  backscatter  case.  A value  of  zero 
indicates  that  this  and  the  following  two  quantities  are  not  yet 
available . 

12.  Accurate  magnetic  colatitude  in  degrees  of  the  backscatter  point. 

13.  Accurate  magnetic  longitude  in  degrees  of  the  backscatter  point. 

Other  printed  output  includes  the  message:  TAPE44  HAS  BEEN  WRITTEN  which 

indicated  the  new  file  has  been  successfully  created. 

STORAGE  REQUIRED 

Program  POWER  requires  200000  octal  words  of  storage. 

ALGORITHM 

Algorithms  for  power  calculations  may  be  found  in  TM-23,  entitled, 
"Absorption,  Flux  Tubes,  and  Backscatter." 

SPECIAL  CAUTIONS  AND  FEATURES 

Program  POWER  can  only  be  run  using  a TAPE7  from  a ray-tracing  run 
made  on  input  from  TAPE88  produced  by  program  GPMT.  All  other  TAPE7's 
will  give  errors  since  rays  are  not  run  in  the  proper  sequence. 

TIMING 

Timing  for  a run  producing  power  loss  for  100  points  is  4 seconds. 
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ERROR  MESSAGES 

NO  MATCHING  TABLE  ENTRY  FOUND. 

F = XX.XX  AZ  = XX. XX  EL  = XX. XX  WHY  = AAAAA 

This  error  message  is  printed  out  when  ray  information  off  of  TAPE7 
has  no  matching  table  entry  in  frequency,  azimuth,  and  elevation  in 
the  tables  from  TAPE66.  There  is  a tolerance  of  .000001  radians  in 
the  angles  to  account  for  any  round  off  problems.  The  message  will 
generally  occur  if  TAPE66  and  the  TAPE7  generated  using  TAPE88  did  not 
originate  from  the  same  execution  of  program  GPMT.  The  program  will 
proceed  to  search  TAPE7  for  more  meaningful  data,  but  the  user  should 
check  to  see  that  the  power  loss  information  is  being  attributed  to  the 
correct  rays.  F,AZ,EL,  and  WHY  refer  to  the  frequency,  azimuth  angle, 
elevation  angle,  and  "90DEG"  or  "RCVR"  code  from  the  rays  on  TAPE7- 
Frequency  is  in  MHz  and  the  angle  are  in  degrees . 

NO  INFORMATION  ON  TAPE66 

Since  the  purpose  of  program  POWER  is  to  add  power  loss  information  to  the 
tables  produced  by  GPMT,  namely  TAPE66,  a run  with  no  information  on  TAPE66 
is  invalid.  If  this  is  the  case,  execution  will  stop.  Check  to  see 
that  TAPE66  has  been  properly  attached. 

FILE  TAPE7  RECORD  XXX  RECORD  MANAGER  ERROR  - 143 

ERROR  NUMBER  103  DETECTED  BY  I0ERR  AT  ADDRESS  000021 

CALLED  FROM  INPB  = AT  ADDRESS  XXXXXX 

CALLED  FROM  GET4R  AT  LINE  XX 

CALLED  FROM  POWER  AT  LINE  41 

ROUTINE  BE0T  ENTERED. 


This  error  message  occurs  when  the  last  record  of  the  TAPE7  file  or  tape 
is  incomplete  due  to  a non-standard  ending  on  the  ray  trace  run  such  as 
time  limit  or  operator  drop.  Although  this  is  normally  a fatal  error,  it 
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has  been  overridden  by  a call  to  SYSTEMC  and  will  instead  be  treated  by 
subroutine  GET4R  as  an  end  of  file.  The  program  will  then  proceed  normally. 

ERROR  LATITUDE, LONGITUDE  xxx.xxx  xxx.xxx 

This  is  an  error  message  from  the  subroutine  which  converts  geographic 
coordinates  to  accurate  geomagnetic  coordinates.  The  message  appears 
if  the  inputted  latitude  is  not  between  +90°  and  -90°  or  if  the  longitude 
is  less  than  zero.  The  first  quantity  listed  is  the  latitude  and 
second  quantity  listed  is  the  longitude.  This  message  should  not 
appear  since  subroutine  DICOORD  should  check  for  this  before  CORRGM  is 
called.  The  subroutine  will  try  to  correct  the  longitude  by  adding  360° 
but  will  proceed  anyway. 

NO  TRIANGLE  FOR  XLAT,XLONG  = xxx.xxx  xxx.xxx 

This  may  occur  when  the  point  for  which  the  accurate  geomagnetic 
coordinates  are  desired  is  in  the  region  of  the  accurate  magnetic  pole. 

The  region  is  divided  into  triangles  which  have  the  pole  as  one  vertex. 

If  a triangle  cannot  be  located,  it  is  assumed  that  this  is  the  accurate 
magnetic  pole  and  the  above  message  will  appear  giving  the  coordinates  in 
the  geographic  system  in  degrees.  No  value  is  assigned  to  the  accurate 
geomagnetic  longitude  in  this  case.  Computation  then  proceeds  as  normal. 

SUBROUTINES 

POWER  This  the  the  main  program.  It  reads  the  TAPE6 6 to  initialize 
tables  to  the  current  values.  It  then  calls  subroutine 
GET4R  to  get  four  rays  for  power  calculation.  With  these 
four  rays  it  locates  their  proper  table  entry,  calls  subroutine 
DEN  for  the  flux  density  calculations,  and  calls  subroutine 
BACSCAT  for  the  backscatter  calculations.  This  process 
is  repeated  until  all  sets  of  four  rays  have  been  read.  The 
information  is  then  printed  and  put  on  TAPE44. 
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GET4R  This  subroutine  reads  the  information  from  TAPE7  for  the 
required  sets  of  four  rays.  GET4R  requires  that  TAPE7 
information  be  in  a particular  order  which  means  that  the 
TAPE7  must  be  ray-tracing  results  which  used  input  data 
generated  on  TAPE88  of  program  GPMT.  For  more  details  on 
the  format  of  TAPE7  see  FILE  DESCRIPTIONS. 

DEN  This  subroutine  calculates  the  ray  density  given  four  ray 

endpoints.  See  TM-23  for  a more  detailed  description. 

AREA1  This  subroutine  which  is  used  by  subroutine  DEN  calculates 
the  area  of  the  rectangle  described  by  the  four  points. 

BACSCAT  This  subroutine  calls  the  appropriate  subroutine  to 

compute  the  backscatter  for  the  "RCVR"  and  "90DEG"  cases. 


SIGGND  This  subroutine  computes  the  ground  backscatter  coefficient. 


SIG90 


TRNSGN 


RCVRGN 


This  subroutine  computes  the  backscatter  coefficient  for 
rays  perpendicular  to  magnetic  field  lines. 

This  is  a function  subroutine  to  compute  the  gain  of  the 
transmitting  antenna.  One  such  subroutine  for  a log 
periodic  antenna  is  described  in  PML  142.  If  no  antenna 
gain  is  desired,  a dummy  subroutine  should  be  included  with 
TRNSGN  set  to  zero. 

This  is  a function  subroutine  to  compute  the  gain  of  the 
receiving  antenna.  One  such  subroutine  for  a rhombic 
antenna  is  described  in  PML  143.  If  no  antenna  gain  is 
desired,  a dummy  subroutine  should  be  included  with  RCVRGN 
set  to  zero. 
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PRNT(j)  This  subroutine  computes  total  power  and  prints  out 
tables  of  power  values  for  the  Jth  azimuthal  entry. 

DICOORD  This  subroutine  through  entry  point  MTOG  converts  a point 
in  colatitude  and  longitude  from  dipolar  geomagnetic  to 
geographic  coordinates . 

C0RRGM2  This  subroutine  takes  points  in  the  geographic  coordinate 

system  and  converts  them  to  accurate  geomagnetic  coordinates. 

A call  to  C0RRGM2  causes  the  transforming  array  to  be  read 
in.  For  points  to  be  converted,  a call  must  be  made  to  CORRGM. 

BEOT  This  subroutine  is  the  error  recovery  routine  for  the  Fortran 
fatal  error  103  override,  SYSTEMC,  explained  above. 

Subroutine  BEOT  sets  an  indicator  so  that  subroutine  GET^R 
will  know  an  end  of  information  exists. 

ACCURACY 

For  a discussion  on  the  accuracy  of  subroutine  DEN  on  the  absorption 
calculations,  see  TM-23*  Accuracy  of  antenna  patterns  is  covered  in  the 
individual  PML  describing  them. 

COMMENTS  ON  USAGE 

Program  POWER  is  used  to  give  an  indication  of  the  POWER  associated 
with  points  along  the  minimum  trace.  For  some  points  this  may  not  be 
possible  since  nearby  rays  needed  for  the  computation  of  spread  losses 
may  penetrate. 

FILE  DESCRIPTIONS 

The  program  card  for  POWER  is  as  follows: 

PROGRAM  P0WER( INPUT, OUTPUT, TAPE4=INPUT,TAPE7,TAPE66,TAPE44,TAPE1) 
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INPUT  There  is  no  system  input  under  normal  operation.  This  is 
TAPE 4 included  for  future  modifications. 

OUTPUT  This  is  the  system  output  file  under  normal  operation.  It 
contains  the  output  tables  described  on  pages  3“5  plus  any 
error  messages  from  the  program  or  the  system. 


TAPE7  This  is  an  unformatted  tape  which  is  output  from  the  ray- 
tracing program.  This  particular  TAPE7  must  have  been 
created  as  a result  of  a ray-tracing  run  using  TAPE88  of 
program  GPMT  as  ray-trace  input.  It  is  composed  of  the 
following  records: 

Record  1:  ID,W,NTYP,N 

ID  an  information  string  of  100  characters  which  identifies 
the  computer  run  made.  The  sixth  word  of  this  string 
identifies  which  characteristic  of  this  ray  we  are 
interested  in,  RCVR  or  90DEG . 

W an  array  of  400  real  numbers  which  contains  all  input  to 
the  program  and  other  information, 

NTYP  an  integer  specifying  the  ray  mode  - ordinary,  extraordinary, 
or  neither  (1,-1, 0), 

N an  integer  specifying  the  total  number  of  equations  to  be 
integrated . 

Record  2:  R( 1 ), R(2 ), R( 3 ), IHOP, NWHY( 1 ), T, (R(l), 1=4, n), SIDEG,  F,AZ,EL 

r(1)  is  the  radius  of  the  transmitter  location  in  km, 

R(2)  is  the  colatitude  of  the  transmitter  in  spherical  polar 
coordinates  in  radians, 

R(3)  is  the  longitude  of  the  transmitter  in  spherical  polar 
coordinates  in  radians, 

IHOP  is  zero  to  indicate  the  transmitter  data  is  given  here, 
NWHY(l)  tells  the  reason  for  the  printout  in  this  case  XMTR  or 
the  transmitter, 

T is  the  group  path  length  in  km, 
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R(4)  is  the  component  of  the  wave  normal  in  the  positive  radial 

direction.  It  is  of  magnitude  such  that  the  square  root  of 

the  sum  of  its  square  with  those  of  R(5)  and  R(6)  have  a 

magnitude  equal  to  (ju  when  G J is  the  angular  wave 
c .n 

frequency  (2TTf),  c is  the  speed  of  elctromagnetic  waves  in 
free  space,  and  n is  the  phase  refractive  index. 

R(5)  is  the  component  of  the  wave  normal  in  the  positive  6 
direction. 

R(6)  is  the  component  of  the  wave  normal  in  the  positive  0 
direction. 

R(7 ) is  the  phase  path  length  in  km  if  W(57)  ^ 0* 

R(8)  is  the  absorption  in  decibels  if  W(58)  £ 0. 

R(9)  is  the  doppler  shift  in  Hz  if  W(59)  £ 0. 

R(10)  is  the  geometrical  path  length  in  km  if  W(60)  ^ 0. 

If  any  of  these  last  four  quantities  are  not  requested  then  the  succeeding 
quantities  will  be  moved  up  in  position.  For  instance,  if  phase  path  is  not 
computed  (w(57)=0),  then  R(7)  will  be  absorption,  R(8)  will  be  doppler 
shift,  and  so  on. 


SIDEG  is  the  angle  between  the  magnetic  field  and  the  wave  normal. 
F is  the  transmission  frequency  in  MHz. 

AZ  is  the  azimuth  angle  of  transmission  in  radians  in  the  input 
coordinate  system  which  may  be  dipolar  or  geographic. 

EL  is  the  elevation  angle  of  transmission  in  radians  in  the 
input  coordinate  system. 


Record  3:  R( 1 ) ,R(2 ), R( 3 ), IHOP, NWHY(2, 3 or  4),T, (R(l), 1=4, N), SIDEG, F,AZ, EL 

The  above  record  will  be  given  for  points  along  the  ray  path  where 
the  SIDEG  Is  90°/  the  ray  reaches  apogee,  or  the  ray  touches  the 


earth's  surface.  NWHY(2),  NWHY(3),  and  NWHY(4)  will  be  "90  DEG.", 
"RCVR",  and  "APOGEE",  respectively.  IHOP  will  indicate  the  hop 
that  the  ray  is  presently  on. 
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Record  3 will  be  repeated  for  all  such  points  along  the  path  of  this 
particular  ray.  Then  the  next  ray  will  start  with  a record  like  Record  2, 
i.e.  with  1H0P  = 0.  When  all  elevation  angles  for  a particular  azimuth 
and  frequency  have  been  listed,  the  following  records  will  appear: 

Record  n:  F,AZ,DUM, -1,N, (W(l), 1=1, NEQ) 

F is  the  transmission  frequency  in  MHz. 

AZ  is  the  current  azimuth  angle  in  radians  in  the  input 
coordinate  system. 

DUM  is  a dummy  variable  (most  likely  0). 

N is  the  total  number  of  equations  to  be  integrated. 

W is  the  W array  described  in  Record  1. 

NEQ  is  N + 2. 

Record  m:  F, AZ, DUM, -2, N, (W( I ), 1=1 , NEQ ) 

where  F,AZ,DUM,N,W,  and  NEQ  are  as  defined  above. 

The  next  W-array  record,  record  1,  will  then  appear.  For  each  point 
for  which  power  is  to  be  computed,  three  sets  of  records  1-m  will  appear. 
The  first  set  gives  one  elevation  angle  and  computes  absorption.  The 
second  set  gives  the  ray  for  a slightly  higher  elevation  angle  at  the 
same  azimuth,  but  gives  no  absorption.  The  third  set  gives  rays  for  two 
elevation  angles  at  a slightly  higher  azimuth  angle. 

TAPE 66  This  is  an  input  file  containing  previously  generated  TAPE66 

output  from  GPMT.  It  is  written  in  unformatted  records  and 
contains  65  records  with  the  following  information: 

Record  1:  NAZE, NFRE, FT, AZT 

NAZE  is  the  number  of  azimuth  entries  in  the  AZT  table  (<  10). 
NFRE  is  the  number  of  frequencies  in  the  FT  table  (<  40). 

FT  is  an  array  of  40  frequencies  in  MHz. 

AZT  is  an  array  of  10  azimuths  in  radians  in  the  input 
coordinate  system. 

Record  2:  ( (GT(l, J, 1 ), 1=1, 40), J=l, 10)  where  GT  is  an  array  of  the 

group  path  length  minima  in  km  for  the  Ith  frequency  entry 
and  the  Jth  azimuthal  entry. 


Record  3: 
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Record  4: 


Record  5: 


Record  6: 


( (ELT( I, J, 1 ),  1=1, 40), J=l, 10)  where  ELT  is  an  array  of 
elevation  angles  in  radians  corresponding  to  the  above 
group  paths. 

(POWDT(l,J,l, ),I=1,40),J=1,10)  where  POWDT  is  an  array  of 
spreading  losses  in  decibels  corresponding  to  the  above 
group  path  minima. 

((P0WBS(l,J,l),I=l,40),J=l,10)  where  POWBS  is  an  array  of 
backscatter  power  losses  in  decibels  corresponding  to  the 
above  group  path  minima. 

(P0WAT(l,J,l),I=l,40),J=l,10)  where  POWAT  is  an  array  of 
absorption  losses  in  decibels  corresponding  to  the  above 
group  path  minima. 


Records  2 through  6 are  repeated  increasing  the  third  index  of  each  array 
by  1 until  8 such  sets  are  read.  Records  2-21  will  give  information 
concerning  the  minima  for  the  case  of  90°  incidence  to  magnetic  field 
lines.  Records  22-41  will  give  information  about  1-hop  minima. 

Record  42:  ( (HGT(l, J, 1 ), 1=1, 40), J=l, 10 ) 

Record  43:  ( (C0LAT( I, J, 1 ),  1=1, 40), J=l,  10) 

Record  44:  ( (CL0NG( I, J, 1 ), 1=1, 40), J=l, 10) 


These  three  records  are  repeated  7 more  times  with  the  third  index  increasing 

up  to  8.  HGT,C0LAT,  and  CLONG  correspond  to  the  coordinates  of  a point 

which  in  records  42  to  53  is  the  point  of  90°  incidence  to  the  magnetic 

field  line  and  in  records  54  to  65  is  thereceiver  along  the  1-hop  path  except  that 

the  hei^it  is  tte ^pogae  height.  Here  HGT  is  the  height  of  this  point  in  km,  C0LAT  is  the  colatitude 

in  degrees  in  the  dipolar  magnetic  coordinate  system,  and  CLONG  is  the 

longitude  in  degrees  in  the  dipolar  magnetic  coordinate  system. 

TAPE 4 4 This  output  tape  is  identical  in  form  to  TAPE66.  It  does  include 

additional  information  obtained  from  TAPE7-  It  may  be  used  as 
TAPE66  input  to  program  POWER  or  as  TAPE44  input  to  program  GPMT. 

TAPEl  This  is  the  permanent  file  which  contains  the  transformation 

array  for  going  from  geographic  to  accurate  geomagnetic  coordinates. 

It  is  stored  in  both  systems  I and  II  under  the  file  name  MJDATA  with 
ID=L0GIC0N. 
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SAMPLE  DECK  SETUP 


1.  Set  up  for  run  where  TAPE7  is  a multifile  tape. 

Job  card  with  CM200000  and  TPl 
VSN(MFILE=YOURNO) 

REQUEST(MFILE,MF, E ) ( YOURNO/ NORING )YOURNAME 

LABEL ( TAPE7 , M =MFILE , P =1 , R ) 

ATTACH( BPOW, BPOWERX36938I8, ID=LANGW ) 

attach(tape66,oldtape66x36938i8, id=langw ) 
request(tape44,*pf) 

ATTAC  H( TAPE 1 , MJDATA, ID=L0GIC0N) 

ldset(preset=zero) 

BPOW. 

CATALOG (TAPE 44, NEWTAPE44X3693818, id=langw, rp=999 ) 

PURGE (TAPE66) 

6/7/8/9 

Here  BPOWERX36938I8  is  assumed  to  be  a compiled  version  of 
program  POWER. 

2.  Set  up  for  run  where  TAPE7  is  a permanent  file. 


Job  card  with  CM200000. 

ATTACH(TAPE7, SPECIALTP7X3693818, ID=LANGW) 

ATTACH( BPOW, BPOWERX36938I8, ID=LANGW ) 
attach( tape66, OLDTAPE66X369381 8, id  =langw ) 

REQUE  ST ( TAPE  44,  *PF ) 

ATTACH(TAPEl ,MJDATA, ID=LOGICON) 

LDSET( PRESET =ZERO) 

BPOW. 

CATALOG ( TAPE  44, NEWTAPE  44X369381 8, ID  =LANGW , RP  =999 ) 
PURGE (TAPE66) 

6/7/8/9 
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NAME: 

CATEGORY: 

TITLE : 
LANGUAGE : 
PROGRAMMER : 


S2P0BL,  revision  0,  program,  PML  146 

Plotting  program  for  use  with  electron  density  preprocessing 
program. 

Plasma  frequency  contour  plotting  program 
CDC  extended  Fortran,  version  4 

D.  Bandes,  Parke  Mathematical  Laboratories,  Inc. 


DATE:  July  15,  I976 


i 


DESCRIPTION 

Program  S2P0BL  may  be  used  to  plot  the  contours  of  models  to  be  given  to 
S2PPR.  It  will  plot  models  with  or  without  the  layer  modifications  and 
will  also  plot  the  perturbation  models  with  or  without  layer  modifications. 
This  program  has  been  separated  from  the  preprocessing  program  S2PPR  to 
keep  the  latter  within  reasonable  core  limits.  Plots  are  composed  of 
layer  characteristics  such  as  the  plasma  frequency  of  the  various  layers 
versus  ground  range  for  any  great  circle.  The  great  circle  over  which 
contours  are  plotted  must  be  specified  in  dipolar  geomagnetic  coordinates; 
the  program  does  appropriate  coordinate  transformations  to  find  the 
input  data.  Plots  may  contain  more  than  one  contour  within  the 
following  limitations:  height  and  plasma  frequencies  cannot  be  intermixed 
on  one  plot  and  the  model  cannot  be  mixed  with  the  perturbation  on  one 
plot.  However,  all  four  types  of  plots  may  be  specified  on  one  data 
card,  and  the  program  will  sort  them  out.  A plot  can  be  made  up  of 
the  plasma  frequency  contours  for  all  five  sine  square  segments,  any 
one  contour,  or  any  combination  of  several  of  these  contours.  Plots  can 
deal  with  only  one  great  circle  on  a particular  set  of  axes. 

Since  S2PLT  is  separated  from  the  preprocessing  program,  layer  modifications 
can  be  assessed  before  the  plasma  frequency  array  is  generated.  This  can 
save  considerable  computation  time. 

INSTRUCTION  SET 

The  input  data  set  to  S2P0BL  is  the  same  as  that  for  S2PPR  (see  PML  I36) 
except  that  input  cards  1 and  2 are  omitted  since  these  two  cards  specify 
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the  grid  size  for  an  output  array  which  is  not  generated  by  this  program. 
Additional  input,  to  describe  the  plot,  must  follow  the  model  and 
perturbation  specifications.  For  each  set  of  plots  desired  two  input 
cards  are  required;  the  first  specifies  which  contours  are  to  be 
included  on  the  plot,  and  the  second  specif ies  upto  eleven  great  circles 
along  which  contours  are  to  be  plotted.  These  cards  follow  the  complete 
contour  specification  as  would  be  given  to  S2PPR. 

Card  1 (2413) 

Cols  1-3  IPL(l) 

Cols  4-6  IPL(2) 

Cols  7-9  ipl(3) 

etc.  up  to  a maximum  of  24  values  of  IPL 

IPL  is  an  array  containing  the  numbers  of  the  contours  to  be  plotted. 
The  number  of  a contour  depends  on  the  total  number  of  sine  square 
segments  in  the  model.  For  instance,  if  there  are  3 sine  square 
segments  the  contour  numbers  will  be  as  follows: 

Contour  1 is  the  f^  contour 

" 2 is  the  f^  contour 

" 3 fs  the  f^  contour 

" 4 is  the  Hq  contour 

" 5 4s  the  contour 

" 6 is  the  Hg  contour 

" 7 is  the  contour 

" 8 is  the  H contour 

max 

If  there  are  5 sine  square  segments: 


I 


Contour  4 is  the  f^  contour 

" 5 4®  the  f^_  contour 

" 6 is  the  Hq  contour 

and  so  on. 

To  plot  the  plasma  frequency  and  height  contours  for  the  perturbation, 
add  20  to  the  above  contour  number.  Thus  the  f ^ contour  would  be 
specified  as  contour  23. 
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Contour  code  numbers  may  be  specified  in  any  order;  that  is, 
the  contours  of  the  same  type  need  not  be  contiguous  on  the 
card.  Code  numbers  0 or  less,  13  to  19  inclusive,  and  33  or  more 
are  invalid  and  are  ignored  by  the  program. 

All  IPL  entries  must  be  right-justif ied  in  the  three  spaces 
allowed  and  must  not  contain  decimal  points. 

Card  2 (H0,7Fl0.0) 


Cols  1 

- 10 

NPATHS 

If  this  is  between  1 and  11  inclusive,  it 
is  the  number  of  great  circles  for  which  the 
plots  are  to  be  made.  The  number  must  be 
right- justified  to  column  10. 

11 

1 

j 

- 20 

THETAO 

Colatitude  (dipolar  geomagnetic)  of  start  of 

all  great  circles  specified  on  this  card,  in  degrees. 

21 

- 30 

PHIO 

Longitude  (dipolar  geomagnetic)  of  start  of  all 
great  circles  specified  on  this  card,  in  degrees. 

31 

- 40 

RANGE 

Maximum  ground  range  to  be  plotted. 

1+1 

t 

- 50 

STARTAZ 

Azimuth  of  first  great  circle  to  be  plotted  (degrees) 

51 

- 60 

ENDAZ 

Azimuth  of  last  great  circle  to  be  plotted  (degrees) 

| 

- 70 

DELAZ 

If  NPATHS  is  zero  or  negative  and  if  DELAZ  is 
at  least  one-tenth  ENDAZ-STARTAZ,  this  is  the 
azimuth  increment  in  degrees  between  successive 
great  circles. 

At  most  11  great  circles  may  be  specified  on  any  one  card.  If 
NPATHS  is  greater  than  11  or  if  NPATHS  is  non-positive  and  DELAZ 
less  than  one-tenth  ENDAZ-STARTAZ,  the  program  resets  NPATHS  and 
DELAZ  to  specify  11  equally  spaced  great  circles. 
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These  two  cards  may  be  repeated  as  often  as  necessary  to  obtain  all  desired 
sets  of  plots.  Suppose  the  model  has  5 sine  square  segments  and  the 


perturbat ion 

has  3 ; we 

wish  to  plot 

V v 

and 

f5 

of  the 

model , 

f_  and  f^ 

2 3 

of  the  perturbation,  and 

H~,H.  and  H of  both 

0 3 max 

the 

model 

and  the 

perturba- 

tion  (sample 

input  case 

listed  below) 

: 

1 1 

2 2 3 

3 

4 

4 

5 

5 

667 

Cols  5 

0 5 

0 5 0 

5 

0 

5 

0 

5 

0 5 0 

Card  134 

5 22  23  6 

9 12  24  27 

28 

Card  2 

3 32. 

0. 

5000. 

30, 

40. 

0. 

Alternative 
Card  2 

0 32. 

0. 

5000. 

30, 

40. 

5- 

If  we  wish  only  to  plot  the  layer  of  the  model  for  a single  great  circle: 
Card  1 10  , 


Card  2 


(note  that  the  number  need  only  be  right-justif ied 
in  any  13  field) 

34.7  88.5  5000.  46.6 


The  output  of  S2P0BL  consists  of  a listing  of  input  tables  for  the  model 
and  perturbation  and  the  desired  plots.  Sample  plots  are  given  in 
attachment  1. 

STORAGE  REQURED 

S2P0BL  requires  140000  octal  words  of  core  storage. 

ALGORITHM 

The  layer  modification  computations  performed  by  S2P0BL  are  the  same 
as  those  in  S2PPR.  Please  refer  to  PML  I36  for  this  algorithm. 


TIMING 


The  timing  of  S2P0BLwill  vary,  becoming  greater  with  increased  complexity 
of  the  layer  modification.  Timing  will  also  depend  on  whether  or  not 
coordinate  transformations  are  required.  Since  coordinates  for  the  great 
circle  to  be  traversed  must  be  $.ven  in  dipolar  geomagnetic  coordinates, 
coordinate  transformations  will  be  eliminated  if  the  input  data  is  also 
dipolar.  It  takes  longer  to  plot  curves  over  several  great  circles  than 
the  same  number  of  curves  all  over  the  same  great  circle.  A typical 
timing  with  plots  for  5 layer  characteristics  is  two  seconds  per  great 
circle.  - 4 - - 226  - 
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ERROR  MESSAGES 

I 

PARAMETERS  OUTSIDE  LIMITS  NUMBER  OF  SINE  SQUARE  CURVES  = nnn  nnn 

This  indicates  that  the  number  of  sine  square  segments  specified  for 
either  the  model  or  the  perturbation  is  greater  than  5*  The  first 

number  given  is  for  the  model  and  second  is  for  the  perturbation.  If 

the  error  occurred  in  the  model,  the  second  number  given  will  be  0. 

Check  to  see  that  the  numbers  are  punched  in  the  correct  columns  and 
that  the  input  deck  is  set  up  correctly.  This  will  cause  a program 
stop  before  any  plotter  output  is  generated. 

LAYER  nnn  HAS  nnn  ENTRIES . MODEL  = nnn  PERTURB  = nnn 

This  indicates  that  the  number  of  table  entries  from  the  Ith  layer  of 

either  the  model  or  the  perturbation  is  greater  than  25.  The  additional 

printout  allows  one  to  tell  if  it  is  the  model  or  the  perturbation 
which  is  out  of  range.  Check  to  see  that  these  numbers  are  punched  in 
the  correct  columns  and  that  the  input  deck  is  set  up  in  the  correct 
order.  This  will  cause  a program  stop  before  any  plotter  output  is 
generated . 

ERROR  LATITUDE,  LONGITUDE  nnn. nnn  nnn. nnn 

This  is  an  error  message  from  the  subroutine  which  converts  geographic 
\ coordinates  to  accurate  geomagnetic  coordinates.  The  message  appears  if 

the  inputted  latitude  is  not  between  +90°  and  -90°  or  if  the  longitude  is 
less  than  zero.  The  first  quantity  listed  is  the  latitude  and  the  second 
is  the  longitude.  This  message  whould  never  appear  since  subroutine  DIC00RD 

^ I 

should  check  for  this  before  CORRGM  is  called.  The  subroutine  will  try 
to  correct  the  longitude  by  adding  360°  and  will  proceed  anyway. 

NO  TRIANGLE  FOR  XLAT,  XLONG  = nnn. nnn  nnn. nnn 

This  may  occur  when  the  point  for  which  the  accurate  geomagnetic  coordinates 
are  desired  is  in  the  region  of  the  accurate  magnetic  pole.  The  region  is 
divided  into  triangles  which  have  the  pole  as  one  vertex.  If  a triangle 
cannot  be  located,  it  is  assumed  that  this  is  the  accurate  magnetic  pole, 
and  the  above  message  will  appear,  giving  the  coordinates  in  the  geographic 
system  in  degrees.  No  value  is  assigned  to  the  accurate  geomagnetic 
longitude  in  this  case.  Computation  then  proceeds  as  normal. 
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SUBROUTINES 

SETLAB  This  routine  sets  the  entries  of  array  LAB(12,3)  in  common 

/LABELS/  to  be  the  correct  labels  (Hollerith  data)  for  the  layers. 

ONEPLOT  This  routine  plots  the  contours  on  one  set  of  axes.  Its 

parameters  specify  which  contours  to  plot  and  how  to  label 
the  plot. 

S2P0BLA  This  subroutine  reads  input  data,  writes  it  to  OUTPUT  with 
headings,  and  checks  that  the  number  of  colatitudes  read  in 
is  within  bounds  . 


SOLVTRI  This  routine  computes  the  colatitude  and  longitude  reached 

after  traveling  a given  distance  along  a given  great  circle. 
The  algorithm  is  an  application  of  the  laws  of  cosines  in 
spherical  triangles. 


ADDER  This  subroutine  computes  the  additive  and  multiplicative 

variations  to  be  made  in  the  model  and  the  perturbation  as  a 
function  of  colatitude  and  longitude. 

S2P0BLB  This  subroutine  computes  the  values  to  be  plotted. 

DICOORD  Transforms  dipolar  geomagnetic  coordinates  to  geographic 
coordinates  . 

C0RRGM2  Transforms  geographic  coordinates  to  accurate  magnetic 
coordinates  . 


Program  S2P0BL  also  requires  some  AFCRL  plotting  software  subroutines. 

See  Section  lb  of  the  AFCRL  User's  Guide  for  details.  The  plotting 
subroutines  called  are  PLTID3,  AXIS,  ENDPLT,  LINE,  NUMBER,  PLOT  and  SYMBOL. 


ACCURACY 


The  curves  put  out  by  S2P0BL  are  made  up  of  points  calculated  every  10  km. 
of  ground  range.  If  a particular  sine  square  segment  happens  over  a small 
interval  of  distance,  it  will  tend  to  look  squared  off.  This  in  no  way 
affects  the  values  computed  by  S2PPR. 
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COMMENTS  ON  USAGE 

S2P0BL  is  intended  as  a companion  program  to  S2PPR.  It  may  be  used 
when  constructing  models  and  modifying  layers,  and  should  be  helpful 
in  evaluating  layer  modifications.  It  may  also  be  used  before  tracing 
rays  to  give  an  idea  of  ionoshpere  characteristics  along  the  ray  paths. 
However,  it  only  depicts  characteristics  of  the  sine  square  segments. 

If  profiles  of  plasma  frequency  versus  height  are  desired,  S2PPR  must 
be  run  first  and  then  PROPLT  must  be  used  with  electron  density  subroutine 
Eli+994.  See  PML  129  for  a description  of  PROPLT  and  PML  127,  rev.  1,  for 
a description  of  El499^+> 

FILE  DESCRIPTION 

The  program  card  is  as  follows: 

PROGRAM  S2P0BL( INPUT, OUTPUT, TAPE5=INPUT, TAPE6=0UTPUT, TAPEl ) 

TAPEl  should  be  the  file  MJDATA, ID=LOGICON,  which  has  the  data  for 
conversion  from  geographic  to  accurate  geomagnetic  coordinates.  The 
input  deck  to  S2P0BL  is  described  on  page  2. 

DECK  SET  UP 

Job  Card  with  CM140000. 

ATTACH( SOURCE, S2POBLX36938I8, ID=BANDES ) 

FTN(l=S0URCE,B=BS2P) 

ATTACH( TAPEl, MJDATA, ID=LOGICON) 

ATTACH( PEN, ONLINEPEN ) 

LIBRARY(PEN) 

ldset(preset=zero) 

BS2P . 

DISPOSE ( PLOT, *0L) 

EXIT. 

DISPOSE (PLOT, *0L) 

7/8/9 

model  description  data  cards 
perturbation  description  data  cards 
sets  of  2 plot  description  cards 

6/7/8/9 
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CATEGORY: 

TITLE: 

LANGUAGE: 

PROGRAMMER: 

DATE: 


AURLAT,  Revision  0 , function,  PML  150 
Coordinate  transformation  function 

Northern  Hemisphere  Auroral  Zone  Accurate  Geomagnetic 

Latitude  Function 

CDC  extended  FORTRAN,  Version  4 

D.  Bandes,  Parke  Mathematical  Laboratories,  Inc. 
August  12,  1976 


DESCRIPTION 


\ j AURLAT  returns  the  approximate  accurate  geomagnetic  latitude  of  a point 

given  in  dipolar  geomagnetic  coordinates.  The  point  should  be  in  or  near 
the  northern-hemisphere  auroral  zone.  The  program  uses  a nine  term  Fourier 
series  to  compute  the  accurate  geomagnetic  latitude;  coefficients  of  the 
Fourier  series  are  computed  from  parabolas  which  fit  the  data  at  60°,  68°, 
and  76°  north  latitude  (dipolar).  Only  27  data  items  need  be  stored.  This 
program  runs  about  twice  as  fast  as  the  combination  of  DICOORD  and  C0RRGM2 
which  may  otherwise  be  used  to  do  the  coordinate  transformations  and  requires 
about  I3IOO  (=31500  octal)  fewer  words  of  memory. 


CALLING  SEQUENCE 


I 


c «-  1 

V 


I 

L 


A call  to  AURLAT  is  of  the  form 

GMLAT =AURLAT ( DLAT , DLON ) . DLAT  and  DLON  are  the  dipolar  latitude  and  east 
longitude  of  a point;  the  value  returned  by  AURLAT  is  the  accurate  geomagnetic 
latitude  of  that  point.  DLAT  is  a latitude  (not  a colatitude),  must  be  in 
degrees,  and  should  be  between  1+5  and  85.  DLON  must  be  in  degrees,  and  may 
be  positive  or  negative.  Values  of  DLON  greater  than  360°  are  allowed. 

No  common  storage  is  required. 


STORAGE  REQUIRED 

AURLAT  requires  about  ll+O  octal  (96  decimal)  words  of  memory. 

- 1 - 





ALGORITHM 


t 

\ 


$S, 

§ 

% 


AURLAT  approximates  GMLAT( DLAT,  <js  ) by 

Aq(DLAT)  + A1(DLAT)cos<f  + B1(DLAT)sin^>  + ...  + A^  (DLAT)cosVf  + B (DLAT)s 

Each  coefficient  Aq  ...  B^  is  given  by  a quadratic  polynomial  which  was 
chosen  to  fit  the  correct  Fourier  coefficients  at  latitudes  of  60,  68,  and 
76  degrees.  The  3 coefficients  of  each  of  these  9 quadratics  are  stored 
in  the  array  X local  to  AURLAT.  For  instance, 

a (dlat)  = x *(dlat-68.)2  + xG  *(dlat-68.)  + x 

O i,l  d, I 3>  • 

ACCURACY 


For  dipolar  latitudes  between  48  and  84  degrees,  AURLAT  returns  the 
geomagnetic  latitude  accurate  to  within  .43  degrees.  For  latitudes 
between  56  and  80  degrees,  AURLAT  returns  the  geomagnetic  latitude 
accurate  to  within  .12  degrees,  with  standard  deviation  under  .05  degrees. 

TIMING 


A test  program  calling  AURLAT  at  each  of  50  latitudes  and  400  longitudes 
ran  in  7*35  seconds  on  the  CDC  6600,  giving  an  average  of  under  .4  micro- 
seconds per  call. 
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NAME: 

CATEGORY: 

TITLE: 

LANGUAGE : 

PROGRAMMER: 

DATE: 


MLRA,  revision  0,  program,  PML  155 
Data  fitting  program 
Multiple  Linear  Regression  Analysis 
GDC  Extended  Fortran  version  4 

B.M.  Langworthy,  Parke  Mathematical  Laboratories,  Inc. 
November  3>  1976 


DESCRIPTION 


Program  MLRA  is  a generalized  program  to  perform  multiple  regression 
analysis  on  arbitrary  sets  of  data  producing  coefficients  of  the  equation 

Y1  = 3 + blXL  + b2X2  + b^  + •••  + VN 

The  program  is  linear  in  that  it  uses  each  X-table  entry  in  a first 

order  manner.  One  may,  however,  enter  a table  of  X 1 s say  which  is  in 
2 

effect  X^  or  exp  (X^)  or  whatever  other  non-linear  function  is  desired. 
Input  data  is  flexible  allowing  up  to  12  variables  with  up  to  20  entries 
each.  Any  entry  table  may  be  used  as  a dependent  variable  for  up  to  8 
other  tables  as  independent  variables.  If  data  is  not  available  for 
certain  observations  of  a variable,  this  can  be  indicated  and  that 
observation  will  be  excluded. 

The  program  computes  means,  coefficients,  and  the  standard  estimate 
of  error.  Since  it  has  the  flexibility  to  make  multiple  runs  on 
various  combinations  of  dependent  and  independent  variables,  the  effective 
contribution  of  each  independent  variable  can  be  measured. 

The  technique  used  for  determining  the  multiple  linear  regression 
is  least  squares  as  given  by  Ezekiel  + Fox,  1959* 

INSTRUCTIONS 

To  use  program  MLRA  the  following  data  must  be  entered: 

Card  1 (215) 

Cols  I-5  M - The  number  of  observat ions  to  be  given  in 

each  table  (<  20) 

Cols  6-10  N - The  number  of  tables  to  be  entered.  (<  12) 


1 
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Card  2 (3AIO)  _ 

cols  1-30  TITLE(J,1),J=1,3 


Card  3 + (8F10.0) 

X(j,l),J=l,M 


A three  word  title  for  the  data 
table  which  will  appear  in  3 lines  of 
10-characters  each. 


- First  data  table  of M entries.  Entries 


are  given  8 to  a card.  If  data  is  not 
available  for  a particular  observation, 
a-500.  should  be  entered. 

Cards  2 on  are  repeated  giving  a three  word  title  followed  by  the  data 
entries  for  each  table.  Once  all  tables  are  read  in,  the  following 
cards  appear. 


Card  n (1415) 


NDEP(I), 1=1,6 


NIND(I), 1=1,8 


- Numbers  of  the  tables  which  are  to  be 
used  as  the  dependent  variables  . There 
should  be  at  least  one  entry  but  not 
more  than  6 entries.  The  program  will 
stop  reading  with  the  first  blank,  zero  or 
nonpositive  entry. 

- Numbers  of  tables  which  are  to  be  used 
as  independent  variables.  No  more  than 
8 such  table  numbers  should  be  listed. 


The  program  will  stop  reading  with  the  first 
blank,  zero  or  nonpositive  entry. 

Card  n may  be  repeated  as  many  times  as  necessary  to  accomodate  all 
the  desired  combinations  of  independent  and  dependent  variables. 


Last  Card 


- This  should  be  a card  which  is  blank  in  columns  I-5. 


A listing  of  sample  input  is  given  in  Attachment  1. 

The  output  from  program  MLRA  consists  of  a table  for  each  dependent 
variable  with  its  independent  variables.  The  column  headings  for  the 
dependent  variable  and  the  independent  variables  are  those  given  in  the 
input  data.  In  equation  notation  the  columns  are: 


2 
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r 

1 


data  entries 


COLUMN  MEANS 

YXi  x2  ••••  xN 

CONSTANT  AND  COEFFICIENTS 
a bl  b2  ....  bN 

STANDARD  ERROR  OF  ESTIMATE  = .XXXXE  XX 
COEFFICIENT  OF  MULTIPLE  CORRELATION  = .XXX  EXX 


where  Y is  the  dependent  variable 

Y'  is  the  linear  regression  value  of  Y 
and  Z is  Y - Y' 

The  standard  error  of  estimate  and  the  coefficient  of  multiple 

correlation  are  explained  on  page  4. 

Sample  output  is  given  in  Attachment  2. 

If  the  data  entries  for  one  observation  contains  a -5OO.,  that 
observation  is  not  used.  Y1  for  that  observation  will  be  -500.  and  Z will 
be  zero.  The  standard  error  of  estimate  will  be  based  only  on  the  remaining 
observat ions  . 


STORAGE  REQUIRED 

The  storage  required  for  program  MLRA  is  40000  octal  words  of  core 
s torage . 


ALGORITHM 

The  coefficients  for  the  equation 

Y = a + b^X^  + b^X  + bX^  + •••  + b^^  are  solved  for  in 
the  following  manner: 

Let  Y = Yl,Y2, 

xl=  x11>xi2»  * * ‘ >,X1M 
XN=  XNl,XN2’  ,XNM 
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The  least  squares  constant,  a,  is  defined  as 


a . Y - b1Z1  - b2*2  - b3*3  - 


bN?N 


where  the  bars  represent  means.  Substituting  this  definition  for  a 
in  the  initial  equation  will  give  us 


Yt  - Y . b1(X1.-7l)  ♦ b2(X2.-S2)  ♦ - ♦ bN(XN1-V 
for  i = 1,2,  • • • • M 
Substituting  y^  = Y^-Y 

*li  = Xli^l 
etc . 

we  have  a set  of  M linear  equations  in  N unknowns  of  the 


yi 


b.x.  . + b x . + b x . + 
1 li  2 2i  j ji 


+ b x 
N Ni 


The  coefficients  b^,  b^,  •••*,b  are  solved  for  using  IMSL  subroutine 
LLSQAR  give  a least  squares  solution  of  an  overdetermined  systems  of  linear 
equations.  Matrix  solution  is  by  Householder's  reduction  to  bidiagonal  form. 

To  evaluate  the  effectiveness  of  the  regression  coefficients,  the  adjusted 
standard  error  of  the  estimate,  S,  is  computed. 


S = 


, 0 

f=-i(VY  ) 


1/2 


where  Y is  the  computed  value  of  Y^ 

M is  the  number  of  observations 

N is  the  number  of  independent 
variables 


The  coefficient  of  multiple  correlation  is: 

■1/2 


M o 

J-1  ^ 

R = S’  i=l  1 


M 


SPECIAL  CAUTIONS  AND  FEATURES 


No  more  than  20  observations  may  be  entered  without  changing  program 
MLRA.  If  some  of  the  entries  are  not  available  for  a particular  observation, 
a -5OO.  may  be  entered  which  will  indicate  that  if  this  table  is  used  that 
observation  must  be  ignored  in  determining  the  coefficients.  If  -5OO.  is  a 
valid  data  entry,  then  -500*00001  should  be  used  instead. 
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TIMING 

Execution  time  will  vary  with  the  number  of  observations  and  the 
number  of  independent  variables  but  should  remain  under  one  second  per 
set  of  dependent  variables  for  the  current  limits  of  20  observations 
and  8 independent  variables. 

ERROR  MESSAGES 

THERE  ARE  NO  INDEPENDENT  VARIABLES  REQUESTED. 

This  message  occurs  if  a regression  analysis  is  requested  but  no 
independent  variable  table  numbers  are  given.  This  is  input  of  the  form 
of  card  n described  on  page  2.  Check  to  see  that  the  independent  table 
numbers  are  given  starting  in  Cols  41  to  45.  If  values  are  placed  before 
this  area,  they  will  be  regarded  as  dependent  variables.  If  a value  does 
not  occur  in  columns  41  to  45,  the  program  assumes  that  no  data  follows. 
If  this  message  occurs,  the  program  will  proceed  to  the  next  "card  n" 
and  continue  execution. 

,'LPSDOR-i 

***IMSL(UERTST)***  TERMINAL  IlLSQAR  [ 1 (lER=129) 

ERROR  RETURN  FROM  LLSQAR. 

INPUT  MATRIX  IS  SINGULAR. 

This  indicates  that  two  of  the  independent  tables  are  not  orthogonal 
functions.  Check  to  see  that  an  independent  variable  table  was  not 
requested  twice  on  a single  "card  n"  (See  page  2).  Also  check  to  see 
that  one  table  is  not  a constant  times  another  table.  The  program  will 
proceed  to  the  next  "card  n"  and  continue  execution. 

A normal  stop  of  program  MLRA  is  EXIT;  any  other  stop  indicates  an 
error  condition.  The  following  stopsmay  occur: 

STOP  1000  This  will  occur  if  an  end  of  file  is  encountered 

while  attempting  to  read  a table  title.  Check  that  N, 
the  number  of  table,  is  punched  right  justified  in 
columns  6-10  of  card  1. 

STOP  1001  This  will  occur  if  an  end  of  file  is  encountered 

while  attempting  to  read  a data  table.  Check  to  see 
that  card  1 is  punched  properly. 
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STOP  1002  This  indicates  that  an  end  of  file  was  encountered 
while  attempting  to  read  the  first  card.  Check  to 
see  that  data  was  included  or  that  an  extra  7/8/9 
card  was  not  in  the  deck. 

SUBROUTINES 

Program  MLRA  uses  IMSL  (international  Mathematical  and  Statistical 
Library)  sub rou t ines LLSQAR,  LPSDOR,  LSVALR,  UERTST,  andVSORTM.  Detailed 
documentation  on  these  subroutines  can  be  found  in  the  Programmer  of  the 
Day  room  at  the  AFGL  Computer  Center. 


ACCURACY 

Accuracy  of  the  matrix  inversion  will  be  controlled  to  the  number 
of  significant  figures  to  which  the  data  is  specified  to  be  accurate. 
Presently  this  is  set  at  six  significant  figures. 

COMMENTS  ON  USAGE 

Program  MLRA  can  also  be  used  on  curvilinear  functions  provided 
data  is  entered  in  table  form.  See  page  1 for  details.  Results  of  the 
coefficient  of  multiple  correlation  can  be  used  to  measure  the  importance 
of  individual  independent  variables  in  determining  the  dependent  variable. 

FILE  DESCRIPTIONS 


The  program  card  for  this  program  is  as  follows: 

PROGRAM  MLRA( INPUT, OUTPUT, TAPE4=INPUT) 

INPUT  and  OUTPUT  are  described  on  pp.  2-3  and  given  in  Attachments  1 and  2. 

DECK  SET  UP 

Job  card  w/  CM 40000. 

FTN(SL,R=3) 

LGO. 

7/8/9 

Decks  of  MLRA, LLSQAR, LPSDOR, LSVALR, UERTST,  and  VSORTM. 

7/8/9 

Input  data  cards 

6/7/8/9  - 6 - 
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Attachment  1 - Listing  of  sample  input  cards  to  program  MLRA. 


6 

6 

START  I. Ml 

RAMIE 

F 5 FRE0=6.25 

55. 

58  . 

62.5 

SLOPE  OF 

F5  MALL  F R E Q = 6 • 25 

. 08RRR 

. OS 

. 06956 

0 PL  AT  9 0 

UPPER 

ELE VFREQ=6 . 25 

9 70.  A 

1031.9 

1112.3 

0 PL  AT  RCVUPPER 

ELEVFR£0=6 • 25 

19  13.7) 

1 946. 4 

1993.5 

SLOPE  90 

UPPER 

£LEVFRE0=6.25 

3 9.15 

42. 

44.3 

SLOPE  KCVRUPPER 

ELEMF  Kt-0  = 6.25 

1 42-5 
1 
1 
1 
1 
1 

14  1,2 

2 

2 

2 

2 

2 

14  3.9 

7 1 . 

02. 

98  . 

.06154 

. 04624 

.02667 

1221.5 

1 R26 . 7 

2024. 7 

2079.8 

-500. 

3315.7 

48*2 

18  3.6 

154.15 

126.95 

- 500  • 

29  1 . / 

3 

4 

3 

4 5 

6 

5 

6 

3 

5 

4 

6 

- 8 ' 
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S I A h I I MG 
RANGE  F5 
FRE0=A.2S 


'3 PL  A I 9 0 GPL  A 1 hCV  COMPUTED  Y DIFFEREMCE 
UPPER  ELEV  UPPER  ELEV 
FRE0=6.2b  FREQ=6.25 


5 • 5P0OE  + 0 1 
5.8000E+01 
6.2500E+01 
1 . 1 000E+01 
8 . 2000E+0 1 
9 . 8P00E+0  1 


9.7P40E+02  1.913  6E  + 03  b.4270E+01  7.3008E-01 

1.0319E+03  1.9464E+03  S.8407E+01  -4.0683E-01 


1 . 1 1 23E+  03  1.9935E+03  6.3679E+01  -1.1786E+00 

1 • 221 8E  + 03  2.0798E+03  7.0117E+01  8.8339E-01 


1 • 8267E+03  -3.0000E+02  -b.0000£+02  0. 

2.0247E+03  3.31 b 7 E + 0 3 9.8028E+01  -2.8033E-02 


COLUMM  ME A Mb 

6.8900E+01  1.2722E+03  2. 2498E+03 

CONSTANT  AMD  COEFFICIEMfb 

3.4146E+01  8 • 4b 1 6E -02  -3.2342E-02 

STANDARD  ERhOR  OF  ESI  I MATE  = 9.7  789E-01 

COER F 101 ENT  OR  MULTIPLE  CORRELATION  = .9862L+00 


SLOPE  OF 
Fb  WALL 
F R£0  = 6.25 


GPL  A 1 90  GPL  AT  KCV  C0MPU1ED  Y DIFFEREMCE 
UPPEh  ELEV  UPPER  ELEV 
F R E 0 = 6 • 2 S FKtO  = 6.2S 


8.8880E-02 
8 . 0000F -02 
A.  95A0E-02 
A.  I b 4 0 E -02 
A • A240E-02 
2. AA70E-02 


9.7040E+02  1.9136E+03 

1 . 03 1 9 E + 03  1.9464E  + 03 

1.1123E+03  1.993b£+03 

1 • 22 1 bE  + 03  2.0798E+03 

1.  02672  + 03  - b • 0000E  + 02 
2.0247 E + 03  3.31b  7 £ + 03 


8 . 7 88 9 E - 02  9.9076E-04 

8 . 0b22E - 02  - b . 2 1 9 6E - 04 


7.1218E-02  -1.65/8E-03 
6 . 03 1 2E - 02  1 . 22  79E-03 


■b. 0000L+02 
2. 6709E-02 


0. 

■3.88A6E-0S 


COLUNM  ME AMS 


A. S330E-02  1 . 2722 E +03  2.2498E+03 

CONSTANT  AMD  COEFFICIENTS 

9.SC<88 £-02  - 1 .61  1 bE -04  7 . 7 b 39 E - 0b 


S 1 A MDARD  E r< K U K OF  £3  I I MATE  = 1.3SS4E-03 

C0EFFICTEM1  OF  MOL  I I PLE  CORRELATION  = .9803E  + 00 


Attachment  2 - Sample  output  from  program  MLRA. 
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NAME: 

CATEGORY: 

TITLE: 

LANGUAGE : 

PROGRAMMER: 

DATE: 


CRRSET,  revision  0 , subroutine,  PML  157 
Special  purpose  file  processor 
RAYSET  (elements)  to  RAY  (bundles) 

CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories, 
October  5;  1976 


Inc  . 


DECRIPTION 


The  purpose  of  CRRSET  is  to  select  various  "ray  elements"  as  produced 
by  the  ray-trace  program  and  to  combine  these  elements  into  "rays"  which 
are  then  suitable  for  use  with  various  information  extraction  subroutines. 
Thus  CRRSET  itself  extracts  information,  restructures  it  but  does  not 
display  it. 

Most  of  the  "useful"  information  from  ray-tracing  is  contained  in 
knowledge  of  each  ray  at  its  "landing  points".  These  landing  points 
(if  any)  include  points  where  the  ray  strikes  the  earth,  the  earth's 
magnetic  field  perpendicularly,  and  the  point  where  the  ray  leaves  the 
transmitter.  (The  latter  point  is  a "landing  point"  for  baekscattered 
rays  but  will  not  be  referred  to  as  a "landing  point"  in  the  sequel.) 

Such  knowledge,  which  is  also  referred  to  as  a "ray  element",  includes 
ray  position,  ray  direction  (wave  normal  and  ray  direction  are  coincident 
at  the  points  mentioned)  and  quantities  which  are  integrated  along  the 
ray  such  as  group  path  length,  phase  path  length,  ray  path  length  and 
ray  path  attenuation. 


Thus  a file  is  created  during  a ray  trace  run  which  includes  a 
summary  of  each  ray  in  the  form  of  knowledge  of  the  ray  at  various 
"interesting"  points  including  the  landing  points  mentioned  above.  Such 
interesting  points  include  points  where  the  ray  enters  and  exits  the 
ionosphere,  "apogee"  a nd"perigee"  points,  etc.  This  unformatted  file 
which  is  called  RAYSET  in  the  sequel  is  the  TAPE7  referred  to  in  NITIAL. 
It  has  the  following  form: 


ID  - record 

ray  records  (or  elements) 
ID  - record 

ray  records  (or  elements) 


t 
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Each  ID-record  corresponds  to  a new  W-array  in  the  ray  trace  program 
and  is  of  the  form: 


ID(10),  w(4oo),  NTYPE,  N 


where  ID(10) 


W(400 ) 

NTYPE 

N 


- is  a W-array  identification  record,  the  last  2 words 

of  which  include  date  and  time  of  start  of  a new  W-array 
respectively , 

- is  the  W-array  (see  ref.  1) 

- is  an  integer  specifying  ray  mode  - ordinary,  extra- 
ordinary, or  neither  (l,  -1,  0) 

- is  an  integer  specifying  the  total  number  of  equations 
integrated  (i.e.  r(l)  - r(N)  contain  useful  quantities 
see  ref.  1) 


Each  ray  record  or  element  is  of  the  form 

R(l),R(2),R(3),HOP,WHY,T,R(l+)-R(N),SIDEG,FREQ,AZ,EL 

where  HOP  is  an  integer  which  is  a key  to  the  significance  of  the  data  in 
each  ray  record  as  follows: 


HOP  = -1 

R(l )=  FREQ  (see  below) 

R(2)=  AZ  (see  below) 

R(3)=  (no  significance) 

WHY  = N 

The  rest  of  the  record  consists  of  the  first  9 values  of  the 
W-array . 

This  record  occurs  at  the  end  of  each  "elevation  loop"  of  the  ray  trace 
program. 


HOP  = -2 

same  as  for  HOP  = -1  except  this  record  occurs  at  the  end  of  the 
"frequency  loop"  i.e.  just  before  another  W-array  (if  any)  is 
"executed" . 

For  all  other  values  of  HOP  the  ray  record  contains  information  about 
the  ray  at  the  point  described  by  HOP  and  WHYvhere: 
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R ( 1 ) - R(3) 

T 

r(4)  - r(6) 
R(7)  - R(N) 


SIDEG 


FREQ 

AZ  ? 
EL  ) 


WHY 


HOP 


= ray  dipolar  coordinates  (r,0,0)  (km,  radians,  radians) 

= group  path  length  (km) 

= ray  wave-normal  vector  (k^,k^,k^) 

= are  integrated  quantities  such  as  phase  path  length 
or  absorption.  The  actual  significance  of  a particular 
R(i)  depends  on  some  W-array  parameters  (w(57)  “ W(60) 
see  ref.  1) 

= is  the  angle  between  the  wave  normal  and  accurate 
magnetic  field  (if  any)  (degrees) 

= transmitter  frequency  (Mhz . ) 

= ray  take  off  azimuth  and  elevation  angle  (radians) 
where  azimuth  is  with  respect  to  geographic  north- 
clockwise  positive 

= is  a descriptive  character  string  like  XMTR  for 

transmitter,  90  DEG.  for  wave  normal  perpendicular  to 
mag.  field,  RCVR  for  earth  intersection.  (Hollerith 
left  justified) 

= is  an  integer  which  is  the  HOP  number  unless  HOP  = 0 
in  which  case  it  signifies  the  ray  starting  point 
(as  does  XMTR). 


For  each  ray  there  are  usually  several  ray  records  starting  with  HOP  = 0 
at  the  transmitter  and  in  the  order  of  increasing  group  path.  The  terminal 
record  for  each  ray  is  dependant  on  the  fate  of  the  ray. 


As  noted  above  each  ray  in  RAYSET  is  usually  represented  by  several 
records.  For  ray  density  calculations  and  many  of  the  displays  it  is 
convenient  to  produce  a secondary  file  which  will  be  referred  to  simply 
as  RAY.  This  is  done  by  CRRSET  which  extracts  data  from  a set  of  RAYSET 
records  pertaining  to  a single  ray  to  produce  a single  ray  record.  Each 
such  record  has  the  form: 


frequency,  azimuth,  elevation,  P^,P  , •••  P^ 


where 


frequency 
(az imuth, 


= transmitter  frequency  (Mhz) 
elevation)  = initial  ray  direction  (radians) 
dipolar  coordinate  system 
are  ray  data  at  selected  "landing"  points 


relat ive 


to  a 


- 3 - 


P,  to  P 
1 n 
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Each  P.  contains  the  data 
1 


HOP,WHY,R,e,0,K„,Kfe,K0,T,SIDEG,Q(l)-Q(m) 


where : 


HOP 

WHY 

R,9,0 


W0 


= hop  ( ^ j 2, 3>  • • • ) 

= landing  point  description,  e.g.  90  DEG.  or  RCVR 
= point  dipolar  coordinates  (km,  radians,  radians) 
= wave  normal  vector  at  point 


T 

SIDEG 


= group  path  length  at  point  (km) 

= angle  between  wave  normal  and  earth  magnetic  field  (degrees) 
Q(1 )-Q(m)  = are  the  "integrated  quantities"  (if  any)  phase  path 

length,  etc.  where  m is  the  number  of  such  quantities 
(poss ibly  0) . 


The  n points  appear  in  increasing  group  path  length  order  in  each  record. 


The  output  of  CRRSET  is  a "bundle"  of  "rays"  of  the  above  form  which 
may  or  may  not  be  in  any  particular  order  (by  frequency  and  initial  direction). 
As  it  now  stands,  however,  the  ray  trace  program  puts  out  raysets  in 
ascending  order  by  elevation,  azimuth  and  frequency  in  that  sequence  so 
that  the  output  of  CRRSET  will  have  this  order.  Thus  diagramatically  the 
structure  of  RAYSET  is: 


1st 


W-array  header 
frequency  (1  to  n-freq^) 
azimuth  (l  to  n -az^) 

elevation  (l  to  n -el^) 


2nd  W-array  header 


frequency  (1  to  n-freq^) 


azimuth  (1  to  n-az) 


elevation  (l  to  n-el^) 


nth  W-array  header 

frequency  (1  to  n-freq^) 
azimuth  (1  to  n-az  ) 

' n ' 


elevation  (l  to  n-el  ) 
N n' 


'hi. 
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I 


S ' 

f ' 

I 


By  using  CRRSET  in  the  proper  mode  and  possibly  using  a sorting 
subroutine  (see  subroutine  BIBSUBl, PMLI58)  it  is  possible  to  assemble 
"rays"  so  that  they  will  appear  in  the  proper  order  for  flux  tube  calcula- 
tions. This  order  must  be  such  that  all  rays  of  the  same  frequency  are 
together  and  rays  with  neighboring  azimuths  must  appear  in  neighboring 
records  (see  subroutine  DEN,PMLl6l). 


In  addition  to  ray  records,  the  first  record  in  RAY  is  an  identifi- 
cation record  with  the  following  structure: 

-999-,-999.,-999*,N,M,NINT,ID(4),R,e,0,  (HOP, WHY, i=l,N), (title, i=l,  NINT ) 


where : 


N 

M 

NINT 

ID(4) 


R,0,0 

HOP, WHY 
TITLE 


number  of  landing  points  in  each  ray  (see  below) 
length  of  each  ray  record 
number  of  integrated  quantities 

last  four  words  of  the  W-array  record  identifier. 

Note  that  for  all  modes  this  identifier  is  obtained 
from  the  first  W-array  record  encountered  on  a call 
to  CRRSET. 

transmitter  location  (assumed  to  be  the  same  for  all 
rays)  (km,  radians) 
landing  point  identifiers 

title  of  integrated  quantities,  e.g.  "PHASE",  "ABSORP", 
"DOPPLER",  "PATH" 


USAGE 

CALL  CRRSET  ( INl,OUTl, INC, OUTC, NET, STOPl , ARRAY, NREC, INDIC,M, IPO ) 

Input  parameters 

All  input  arguments  are  left  justified  Hollerith  unless  specified 
otherwise.  Blank  values  cause  defaults  to  be  chosen  as  shown  in  parentheses. 
For  explanation  of  permissible  values  and  role  of  parameters  see  the  notes 
indicated  by  asterisks. 


INI 

input 

file  name  ("RAYSET") 

*1 

OUTl 

output 

file  name  ("RAY") 

*1 

INC 

input 

rewind  control  ("RR") 

*2 

OUTC 

output 

rewind  control  ("RR") 

*2 
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NET  6 element  array  for  range  control  *3 
as  follows: 

1,2  frequency  (0.,100.) 

3,4  azimuth  (-l80.,360.) 

5,6  elevation  (0.,90.) 

ST0P1  subroutine  stop  condition  (no  default)  *4 

ARRAY  an  array  of  landing  point  name  pairs  in  *5 
the  form  of  hop  number  (integer)  and  code 
name  for  the  point,  (no  default  but  first 
element  0 causes  all  points  to  be  chosen.) 

IPO  (integer  array)  position  numbers  on  the  *6 
multifile  tape  if  ST0P1  = "MFILE" 

Notes  on  input  parameters: 

*1  File  names  are  the  "logical  file  names"  which  may  be  up  to  7 
alphanumeric  characters  in  length  starting  with  a letter. 

*2  The  possible  input  values  are  as  follows: 

"RR"  - rewind  on  file  open  and  close 

"NR"  - rewind  file  on  close  only 

"RN"  - rewind  file  on  open  only 

"NN"  - do  not  rewind  the  file  at  all 

Normally  the  input  and  output  files  are  rewound  when  they  are 
opened  and  closed.  There  are  times  however  when  it  makes  sense  to  not 
rewind.  An  example  of  this  is  given  in  the  sample  program  shown  at  the 
end  of  this  guide.  In  this  case  CRRSET  was  used  to  extract  information 
from  several  input  files  and  put  it  on  one  output  file.  The  values  of 
INC  and  OUTC  interact  somewhat  with  the  values  of  STOPl . (refer  to  *4) 

*3  The  action  of  NET  is  such  that  only  if  frequency,  initial 

azimuth  and  initial  elevation  angles  fall  within  the  ranges 
indicated  is  an  output  "RAY"  produced.  The  possible  input 
values  are  blank  or  Hollerith  string  which  can  be  interpreted 
as  a floating  point  number.  Net  values  1,2  refer  to  frequency; 
3,4  to  azimuth  and  5,6  to  elevation.  The  following  example 
illustrates  the  use  of  NET: 
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(l)  blank  (2)  freq  2 all  frequencies  greater  than  or 

equal  to  freq  2 

(1)  freq  1 (2)  blank  all  frequencies  less  than  or  equal 

to  freq  1 

(1)  freq  1 (2)  freq  2 all  frequencies  within  the  interval 

(freq  1,  freq  2)  inclusive 

*k  The  "recognized"  values  of  STOPl  are  "F",  "W"  and  "MFILE". 

Any  other  value  of  STOPl  will  cause  a stop  at  end  of  input  file; 
thus  one  can  use  a value  of  "EOF"  as  a reminder.  The  significance 
of  these  values  is  as  follows: 

"F"  - stop  whenever  the  frequency  of  the  input  ray  changes 

value  from  the  first  value  observed.  If  "F"  is  used, 
the  output  file  should  not  be  rewound  on  open  the  first 
time  CRRSET  is  called  since  an  automatic  skip  over  the 
output  header  record  takes  place  after  an  initial  rewind. 
"W"  - stop  whenever  a new  W-array  occurs 

"MFILE1-  stop  only  when  the  last  file  of  a multifile  tape 

has  been  read.  This  stop  is  useful  if  ray  elements 
from  several  files  are  to  be  combined  into  a single 
output  file.  If  MFILE  is  used  the  input  file  must  be 
on  tape  (multifile)  and  the  control  card,  REQUEST(MFILE, 
MF,E)  used. 

*5  The  values  of  array  (in  pairs)  are  used  to  match  array  names 
associated  with  the  various  ray  elements  in  RAYSET.  Whenever 
a match  occurs,  the  corresponding  element  is  added  to  RAY. 

Normally  the  first  value  in  the  pair  to  be  matched  is  an  integer 
hop  number  (not  Hollerith)  while  the  second  is  a descriptive 
Hollerith  code  e.g.  1,  "RCVR".  For  a given  set  of  ray  elements 
(which  make  up  a complete  ray  in  RAYSET)  an  element  is  extracted 
and  put  into  RAY  only  if  an  unmatched  name  pair  of  ARRAY  remains. 
For  example  if  the  name  pair  1,"90  DEG."  appears  once  in  ARRAY 
and  several  ray  elements  have  the  corresponding  name  pair, 
only  the  first  such  element  will  be  selected.  If  the  first 
value  of  ARRAY  is  set  to  0,  all  ray  elements  are  taken.  It 
should  be  noted  that  if  this  is  done  the  records  in  RAY  will 


w 
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generally  be  of  different  lengths  and  at  present  unsuitable 
for  the  various  display  programs.  A value  of  0 should  be 
inserted  in  ARRAY  immediately  following  the  last  name  pair 
since  0 is  used  as  a stopping  value  for  "reading"  ARRAY  into 
CRRSET. 

*6  If  the  first  element  of  IPO  is  0,  all  files  of  the  "requested" 
multifile  tape  are  used  for  input.  Otherwise  only  those 
indicated  in  IPO  are  read.  A value  of  0 should  immediately 
follow  the  last  desired  value. 

output  parameters 

All  values  are  integer  unless  otherwise  specified. 

NREC  The  number  of  rays  in  the  output  "bundle"  of  rays.  Note 
that  the  header  record  is  not  included  in  this  count.  If 
the  output  file  is  not  rewound  on  open,  NREC  should  be  set 
to  zero  in  the  calling  program. 

INDIC  A value  of  1 is  returned  by  CRRSET  when  an  "end-of-f ile"  is 
encountered  for  the  current  input  file.  It  is  set  to  0 
whenever  CRRSET  is  called. 

M is  the  length  of  each  output  record  if  landing  points  have 

been  specified  in  ARRAY. 

Use  of  common  storage 

The  following  labeled  common  storage  areas  should  be  declared  in 
the  calling  program  or  in  some  subroutine  which  must  be  loaded  before  CRRSET 

/FITAOUT/  (35) 

/OUTBUF/  (514) 

/DATA/  (512)  (or  M ifM>412  which  is  unlikely) 

/IBUF/  (19) 

The  following  labeled  common  areas  are  used  by  CRRSET  for  communica- 
tions with  other  subroutines: 


/POSIT/  (1) 
/SUB/  (2) 
/FITACR/  (35) 
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STORAGE  REQUIRED 

2520g  (1^60^)  not  including  labeled  common. 

ALGORITHM 

The  parameters  are  first  "translated"  by  subroutine  TRANS.  If 
a parameter  can  not  be  properly  interpreted  an  exit  is  made  from  the 
subrout ine . 

All  file  manipulation  (with  the  exception  of  OUTPUT)  is  done  using 
Record  Manager  call  statements.  If  STOPl  = "MFILE",  CRRSET  uses 
subroutine  POSI  to  search  for  the  required  files  (as  specified  in  IPO). 

CRRSET  "keys"  on  values  of  HOP  in  the  input  file.  The  first  record 
in  RAYSET  is  assumed  to  be  a "W-array,  header"  record.  If  it  is  not 
(as  determined  by  length),  CRRSET  terminates.  After  the  first  record  a 
check  is  made  on  HOP.  If  HOP  = -2,  the  next  record  (if  any)  is  a new 
"header"  record;  if  HOP  = 0,  the  start  of  a new  ray  is  indicated; 

HOP  = -1  is  ignored  (it  indicates  a new  frequency);  positive  hop  numbers 
are  actual  hop  numbers  to  be  associated  with  the  ray. 

The  subroutine  is  essentially  composed  of  various  "phrases"  which 
are  so  commented  in  the  source  listing.  Thus  there  is  the: 

"translate  parameters  phrase" 

"landing  point  check  phrase" 

"end  of  W-array  phrase" 

"output  a record  phrase" 

"start  a new  ray  phrase" 

" 'net  check'  phrase" 

"end  of  file  phrase" 

"possible  multifile  mode  phrase" 

"end  of  program  phrase" 

The  phrases  which  are  composed  of  one  or  more  FORTRAN  statements 
appear  "at  random"  within  the  subroutine  and  are  usually  "addressed"  by 
a statement  number  and  left  by  a GO  TO  statement. 

The  only  computation  required  is  the  conversion  of  ray  initial 
azimuth  from  geographic  to  dipolar  (or  compute)  coordinates.  Rather  than 
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converting  a ♦a'  directly,  a'  is  computed  from  the  initial  values 


of  k..  and  k_,  as : 


, -1  , "k-W 

a = + cos  { 


/k|  + k0 


and  a'  has  same  sign  as  . 

Since  a'  is  a computed  quantity,  it  is  truncated  to  the  40  most 
significant  bits  (including  exponent). 


SPECIAL  CAUTION  AND  FEATURES 

Most  precautions  have  been  mentioned.  They  are  summarized  here: 

1)  If  ST0P1  = "MFILE"  the  input  file  must  be  on  multifile  tape  and 
REQUEST(MFILE,MF, E ) used  along  with  the  appropriate  VSN  statement 
immediately  following  the  job  card. 

2)  The  input  file  must  have  the  structure  indicated  under  DESCRIPTION 
and  summarized  under  FILE  DESCRIPTION. 

3)  If  ST0P1  = "F"  then  the  output  file  should  not  be  rewound  the  first 
time  CRRSET  is  called.  In  addition,  NREC  should  be  set  to  0 in  the 
calling  subroutine. 

4)  Labeled  common  areas  /FITAOUT/,  /OUTBUF/,  /IBUF/  and  /DATA / should  be 
declared  with  the  minimum  sizes  indicated  by  subroutines  which 
appear  before  CRRSET  in  the  load  sequence. 

In  addition  to  various  error  messages  which  might  be  printed  via 

OUTPUT,  CRRSET  also  prints  the  following  data: 

1)  input  parameter  values  and  their  "translations"  in  octal.  This 
translation  is  the  actual  value  used  with  the  subroutine  and 
includes  default  substitution  when  appropriate. 

2)  header  information  including  ID  (10  words)  and  the  first  17 
values  of  the  W-array. 

3)  the  number  of  input  records  read,  the  number  of  output  records, 
record  length  and  the  number  of  integrated  quantities  and  their 
titles  . 

4)  If  ST0P1  = "MFILE",  the  file  position  sought  for  and  file  label. 
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TIMING 

Compilation  time  is  approximately  2 seconds  on  the  CDC66OO. 

CP  time  is  on  the  order  of  a second  and  probably  always  less  than  10 
seconds  even  for  very  large  input  files. 

ERROR  MESSAGES 

"INPUT  FILE  DOES  NOT  START  WITH  W-ARRAY" 

Occurs  if  the  first  record  is  not  412  words  long  or  if  any 
record  after  a record  with  HOP  = -2  is  not  412  words  long. 

"OUTPUT  FILE  DOES  NOT  HAVE  A HEADER" 

Occurs  only  if  ST0P1  = "F"  and  an  output  file  was  not  previously 
created . 

"CRRSET,  FATAL  ERROR,  IHOP  = n” 

Occurs  if  the  record  following  a header  record  does  not  have  a 
HOP  value  of  0 indicating  the  start  of  a new  ray. 

"CRRSET,  FATAL  ERROR,  PARAMETER  n HAS  BAD  VALUE" 

Occurs  if  an  input  parameter  has  a value  which  can  not  be 
properly  interpreted.  The  value  of  n runs  from  1 for  INI  to 
11  for  ST0P1 . 

SUBROUTINES 

(subroutines  marked  with  * are  considered  to  be  special  purpose  and 
considered  to  be  part  of  CRRSET.  Others  are  normally  obtained  from 
a user  library.) 

EOFILE  - end  of  file  subroutine 

ERR0R2  - error  subroutine  associated  with  output  file 
ERR0R3*  - error  subroutine  for  input  file 
IEOF  - end  of  file  function 

INTCHK*  - used  for  determining  the  "integrated  quantities" 

IPOS  - converts  numbers  for  POSI 

NETCHK*  - checks  for  "within  range" 
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POSI  - positions  multifile  tape  to  desired  file 

TRANS  - translates  character  string  parameters  and  substitutes 

defaults  if  required 

ACCURACY 

not  applicable 

COMMENTS  ON  USAGE 

CRRSET  is  most  often  called  from  a main  program  which  also  includes 
one  or  more  display  programs  which  require  records  in  a form  produced  by 
CRRSET.  It  is  possible  to  extract  information  piecemeal  from  a single 
input  file,  for  example  the  data  corresponding  to  a single  W-array 
can  be  processed  through  other  subroutines  then  a loop  made  back  to 
CRRSET  for  another  batch  of  data  which  is  associated  with  the  next 
W-array.  At  the  other  extreme  it  is  possible  to  extract  data  from 
several  files,  which  may  or  may  not  exist  as  multifiles  on  several 
separate  physical  tapes.  Once  RAY  has  been  produced  it  can  be  sorted 
(by  BIBSUBl,  for  example)  for  further  processing  if  necessary. 

FILE  DESCRIPTIONS 

Three  files  are  used  by  CRRSET.  Only  OUTPUT  should  be  declared 
by  a main  program.  The  input  file  RAYSET  and  output  file  RAY  were 
described  under  DESCRIPTION.  Their  structure  can  be  summarized  as 
follows : 

RAYSET  (w-type  records  as  produced  by  Fortran  unformatted  write) 

records  are  variable  length  with  the  first  record  length 
412  words  (this  record  is  called  a "header"  record  - there  may 
be  several  "header"  records).  Header  records  are  assumed  to  have 
the  structure: 

ID(10),  W(400),  NTYPE,  N 

ID  is  assumed  to  be  Hollerith 
W(l-17)  is  assumed  to  be  floating  point 


N is  an  integer  which  specifies  the  total  no.  of  integrated 
quantities  . 


PML  157 


All  other  records  are  assumed  to  be  "ray  element"  records  provided 
HOP  > 0 (see  below).  If  HOP  = -2  the  next  record,  if  any,  is 
assumed  to  be  a "header"  record.  If  HOP  = -1  the  record  is  not 
used.  HOP  = 0 signifies  the  start  of  a new  set  of  "ray  elements". 
The  structure  of  a ray  element  record  is: 

rr  > r0>  r0j  HOP, WHY,  t , k^_,  kg,  k^,  ( - ),  (^/^,f,a,e 
where : 


- HOP, WHY 
t 


- (kr,k9,v 

- ( - ) 


f 


- f , a, e 


is  the  dipolar  coordinates  of  the  element  (km,  radians) 

[ float ing  point ] 

is  the  landing  point  name  [integer,  Hollerith] 
is  the  group  path  length  of  this  element  (km) 

[floating  point] 

is  the  wave  normal  direction  of  the  element  [floating 

po int  ] 

is  empty  if  N (total  number  of  integrated  quantities 
is  6 . It  consists  of  N-6  floating  point  numbers 
representing  other  integrated  quantities  [floating  point] 
is  the  angle  between  the  wave  normal  and  earth's 
magnetic  field.  (radians)  [floating  point] 
initial  frequency  (MHz),  azimuth,  elevation  (radians) 

[ float ing  point ] 


RAY  (w-type  record,  output  file,  usually  fixed  length  records) 

This  file  consists  of  1 header  record  and  the  rest  ray  records. 
Each  record,  including  the  header  record  has  the  same  length  provided 
the  parameter  ARRAY  does  not  have  a first  element  of  0.  If  ARRAY  (1)  = 0 
the  length  of  each  ray  record  is  determined  by  the  total  number  of 
elements  for  a given  ray  from  RAYSET.  The  structure  of  each  record  is: 

header  record 
(npts  4 0) 

-999-,  -999-,  -999.,  npts,  m,  nint,  ID(4),  r,  9,  0, 

(HOP, WHY,  i = 1,  npts),  (title  (i),  i = 1,  nint) 

where  : 

- npts  = number  of  ray  elements  [integer] 
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- ra  = total  record  length  [integer] 

- nint  = number  of  "integrated  quantities"  [integer] 

- ID(4)  = last  four  words  from  ID(10)  in  header  record 

of  RAYSET  [Hollerith] 

- r,8,0  = transmitter  dipolar  coordinates  (radians)  [floating 

point ] 

- HOP, WHY  = element  hop  and  name  [integer,  Hollerith] 

- TITLE  = titles  of  "integrated  quantities"  [Hollerith] 

If  npts  = 0 then  m is  set  to  zero  and  the  (HOP, WHY)  pairs  are  not 
included . 


ray  record 
f,a,e,P^,P£, 


(npts  / 0) 


£ > a > e 2> 


where  P,  corresponds  to  the 
last  r 

last  element  of  a set  of  ray 
elements  in  RAYSET 


P.  = HOP,WHY,rr,rQ,r0,kr,ke,k0,t,  ^g,q(l),  --q(nint) 
where : 

- f,a,e  = initial  ray  frequency,  azimuth,  elevation 

(MHz,  radians)  [floating  point] 

note : azimuth  is  relative  to  compute  coordinates 

Azimuth  in  RAYSET  is  relative  to  geographic  coordinates, 

- HOP, WHY  = hop  number,  name  [integer,  Hollerith] 

- (r  ,r  , r.)=element  coordinates  (km,  radians)  [floating  point] 

r & y) 

- (k  ,kQ,k^,  )=wave  normal  direction  of  element  [floating  point] 

r y v) 

t = group  path  length  (km)  [floating  point] 

- if/  = angle  between  wave  normal  and  earth's  magnetic 

® field  (degrees)  [floating  point] 


- q(l )-q(nint ) = integrated  quantities  [floating  point] 


EXAMPLE  OF  USE 

In  this  example,  data  from  three  multifile  tapes  are  combined  into 
one  RAY  file.  It  is  assumed  that  the  transmitter  location  remains  fixed, 
the  ionospheric  model  remains  the  same  and  the  number  of  integrated  quantities 
is  fixed.  In  order  to  accomplish  this,  three  main  programs  are  used 
since  three  different  tapes  must  be  mounted.  These  three  main  programs 
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are  identical  except  that  parameter  OUTC  is  respectively  "RR",  "NN", 
"NR".  Note  that  NREC  is  set  to  zero  in  MAIN  since  the  output  file 
is  not  rewound  on  open  for  the  second  and  third  MAIN  programs.  These 
3 programs  are  called  MAIN  but  stored  (as  object  modules)  in  cycles 
1,  2,  3 respectively  of  permanent  file  MAINX36838I8.  All  required 
subroutines  which  are  not  part  of  CRRSET  are  stored  in  user  library 
BARLIB.  First  the  control  deck,  then  the  source  listing  of  the  3 
MAIN  programs: 

BARMA, CM77777 , T100 , TP 1 . 

VSN(MFILE=RAYSE1/RAYSE2/RAYSE3) 

ATTACH  (BARLIB, ) 

ATTACH  (MAB,MAINX3683816,CY=1, • • * ) 

LIBRARY  (BARLIB) 

REQUEST  (MFILE,MF,E)  (RAYSEl /NORING ) 


MAB. 

return(mab) 

UNLOAD  (MFILE) 

REQUEST  (MFILE, MF,E)  (RAYSE2/ NORING ) 

^ach(mab,mainx3693818,cy=2,  • • •) 

return(mab)  v 
UNLOAD  (MFILE) 


RETURN 

UNLOAD 


REQUEST  (MF 
^TTACH  (MAB 

Source  listing: 


MF,E)  (RAYSE3/NORING) 

nx$6$3818,cy«3,--0 


PROGRAM  MAIN  (OUTPUT) 

COMMON/ FITAOUT/ FITAOUT(  35 ) 

COMMON /OUTBUF/OUTBUF( 35) 

COMMON/ IBUF/IBUF( 100) 

COMMON / DATA / DATA ( 500 ) 

DIMENSION  ARRAY  (5),  NEW(6),  IP0(1) 

DATA  ( ARRAY=1 , "90  DEG.",  1,  "RCVR",  0) 

DATA  (NET=6*0),  (IPO=0) 

NREC=0  "RR" 

CALL  CRRSET  ( "RAYSET", "RAY", "RP",  "NN"  , NET, "MFILE", 

"NR" 

$ARRAY, NREC , IND IC , M , IPO ) 
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NAME  : 

CATEGORY: 

TITLE: 

LANGUAGE : 

PROGRAMMER: 

DATE: 


BIBSUBl,  revision  0,  subroutine,  PML  I58 
General  purpose 
File  sort 

CDC  Extended  Fortran  - Version  4 or  later 

T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 

July  16,  1976 


DESCRIPTION 

BIBSUBl  does  a file  sort  using  Fortran  statements  which  can  access 
the  CDC  Sort/Merge  package. 

USAGE 

CALL  BIBSUBl 

Use  of  common  storage  for  input 

All  of  the  controlling  data  for  BIBSUBl  is  passed  through  labeled 
common  /PARAM/.  This  data  is  in  the  form  of  character  strings  (Hollerith), 
one  word  per  datum.  A blank  word  is  replaced  with  default  values  as 
shown  in  brackets  below:  Data  is  listed  in  the  order  in  which  it  should 

appear  in  /PARAM/.  Refer  to  the  notes  marked  by  asterisks  for  more 
details  and  restrictions. 

1)  Input  file  name  ["FIL”]  *1 

2)  Output  file  name  [input  file  name  with  "S"  added  at  the 

end  of  the  name] 

3)  Number  of  sort  keys,  NKEY  [1]  *2 

k)  Key  origin  (character  position  in  record)  [1] 

5)  Key  length  (characters)  [10] 

6)  Sort  code  ["DISPLAY”]  *3 

7)  Sort  order  (ascending,  "A",  or  descending,  "D")  ["A"] 

8)  Colating  sequence  [depends  on  sort  code]  *4 


1 
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9)  repeat  4 through  8 NKEY  times 


3 + NKEY  • 6)  maximum  input  record  length  (characters ) [5120] 

m 

notes  on  input 

*1  File  names  are  the  "logical  file  names"  which  may  be  up  to  7 
alphanumeric  characters  in  length  starting  with  a letter.  The 
input  file  must  be  essentially  of  the  same  type  as  produced  by 
a Fortran  unformatted  write  statement.  Specifically  it  must  be  a 
sequential  file  with  W-type  records.  Records  need  not  be  of 
constant  length  however.  The  output  file  is  the  same  as  the 
input  file  with  a possible  re-ordering  of  records.  Both  input 
and  output  files  are  re-wound  before  and  after  sorting.  BIBSUBl 
checks  to  see  if  the  input  file  is  empty  and  if  so  returns  with 
a "fatal"  error  message. 

*2  Sorting  is  done  by  key  1,  then  by  key  2,  etc.  where  key  1 
starts  at  the  character  position  given  by  /PARAM/(4)  and  key  2, 
if  it  exists,  starts  a /PARAM/(9)  etc.  The  start  of  a record 
is  at  character  position  1. 

*3  The  permissable  values  of  sort  code  are: 


"DISPLAY"  (display  code) 

"FLOAT"  (floating  point  number) 

"INTEGER"  (integer  number) 

"LOGICAL"  (binary  integer  (unsigned)) 

*4  Collating  sequence  has  meaning  only  if  the  sort  code  (see  *3) 
is  "DISPLAY".  The  permissable  values  are: 

"ASCII6"  see  Appendix  A 

"C0B0L6"  " 

"DISPLAY"  " 

"INTBCD"  " 

"MINE"  see  Appendix  B 


< ' 


- 2 


- 260  - 


PML  I58 


< 


* 

].•  i 


1 


It  should  be  pointed  out  that  data  which  is  to  be  interpreted 
as  a character  string  should  be  left  justified.  For  example  /PARAM/(6) 
might  be  "DISPLAY###" . On  the  other  hand,  numerical  data  can  appear 
anywhere  within  the  word.  For  example  /PARAM/(5)  might  be  "##10######" 
and  would  be  correctly  interpreted  as  integer  10. 

Use  of  other  common  storage 

In  addition  to  /PARAM/  the  following  common  storage  areas  must 
be  declared  in  the  calling  program  or  in  some  subroutine  which  is 
loaded  before  BIBSUBl: 

/FITAIN/ (35) 

/FITAOUT/ (35) 

/inbuf/(514) 

/outbuf/(514) 

/MESSA/ (21 ) 

/IBUF/  (length  of  first  record  of  input  file) 

Also  BIBSUBl  uses  common  storage  /SUB/(2)  to  communicate  with  the  file 
error  processing  subroutines. 

STORAGE  REQUIRED 

BIBSUBl  requires  655g  (429^)  not  including  labeled  common.  The 
"average"  sort  job  (see  EXAMPLE  OF  USE)  shouM  run  with  60  to  65  K of 
central  memory.  Larger  amounts  of  CM  may  speed  up  the  sort  process. 

It  is  imperative  that  an  RFL  directive  be  included  in  the  control  deck 
since  the  sorting  subroutines  depend  upon  the  use  of  "scratch"  storage 
over  and  above  that  required  to  store  the  load  module.  If  RFL  is  not 
used,  storage  is  automatically  decreased  to  that  required  to  store 
the  load  module . 

ALGORITHM 


Parameters  (in  /PARAM/)  are  translated  and  defaults  substituted 
where  required.  If  a proper  translation  can  not  be  made  an  error 
message  is  produced  and  a return  is  made  from  the  subroutine  with 
IFATAL  set  to  one. 
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The  input  file  is cpened  and  a record  read.  If  parameter  "FP" 
in  the  file  information  table  is  100,.,  an  end  of  file  has  been  encountered 
(no  information)  and  the  subroutine  returns  with  an  error  condition 
( IFATAL  =1). 

The  sort  is  done  using  the  following  calls  to  Sort/Merge: 

CALL  SMSORT  (max.  record  length) 

CALL  SMOPT  ("RETAIN") 

CALL  SMFILE  ("SORT",--*) 

CALL  SMFILE  ("OUTPUT",  •••  ) 

NKEY  ( CALL  SMKEY  ( ) 

times  / CALL  SMSEQ  (•••)  (if  collating  sequency  is  "MINE") 

CALL  SMEND 

Record  Manager  calls  are  used  for  all  file  manipulation  except 
output  messages  are  handled  using  standard  Fortran  write  statements. 


SPECIAL  CAUTION  AND  FEATURES 

BIBSUBl  can  only  be  used  with  w-type  records,  thus  it  can  not 
sort  "formatted"  files.  Be  sure  to  use  LIBRARY( COBOL)  (see  EXAMPLE  OF 
USE)  and  RFL.  Also  be  sure  to  declare  the  labeled  common  areas  indicated 
previously.  IFATAL  (in  /MESSA/)  is  set  to  1 if  a fatal  error  occurs 
in  that  BIBSUBl  can  not  do  the  required  sort  because  of  an  inappropriate 
parameter  or  non-existant  input  file.  The  calling  program  can  check 
this  error  flag  and  take  appropriate  action. 

The  input  parameters  are  printed  out  in  the  form  they  are 
received  in  /PARAM/  along  with  their  "translations"  in  octal  form. 

BIBSUBl  also  prints  out  the  CPU  seconds  required  for  the  sort. 


TIMING 

The  time  required  for  a sort  depends  upon  the  number  of  records 
in  the  input  file,  the  length  of  these  records,  the  amount  of  central 
memory  required,  the  number  of  sort  keys  and  the  sort  code  ('Integer" 
or  "logical"  sorts  are  the  fastest).  Experience  has  shown  that  20 


PML  158 


seconds  is  adequate  for  files  with  around  10000  records,  2 or  j sort 
keys,  a record  length  of  32  words  and  "scratch"  space  of  20  to  30 
kilowords  • 

ERROR  MESSAGES 


"INPUT  FILE  input  file  name  DOES  NOT  EXIST" 

Occurs  if  the  input  file  is  empty. 

"BIBSUBl",  FATAL  ERROR,  PARAMETER  n HAS  BAD  VALUE" 

Occurs  if  an  input  parameter  has  a value  which  can  not  be 
properly  interpreted.  The  value  of  n is  the  parameter  number  as 

given  in  USAGE. 

I 

Sort/Merge  also  provides  a large  repertoire  of  error  messages. 
Refer  to  CDC  Sort/Merge  manual  page  E-l. 

[ 


I 


t 
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SUBROUTINES 

The  following  "user"  subroutines  are  required.  They  are  normally 
obtained  from  a user  library. 

ERR0R1  error  subroutine  associated  with  input  file 
ERR0R2  error  subroutine  associated  with  output  file 
MESSAGE  prints  out  information  and  error  messages 
TRANS  translates  character  string  parameters  and  substitutes 
defaults  if  required 

FILE  DESCRIPTIONS 

The  only  files  used  explicitly  by  BIBSUBl  are  the  input  file  to 
be  sorted  and  the  sorted  output  file.  Neither  of  these  files  need 
be  declared  in  a program  statement  although  it  has  been  found  in 
practice  they  may  be  declared  there  if  other  subroutines  have  to  use 
conventional  Fortran  statements  to  manipulate  these  files.  These 
files  are  essentially  those  which  would  be  produced  by  an  unformatted 
write  statement  in  Fortran. 


: 
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Error  messages  are  printed  out  via  subroutine  MESSAGE  which 
usually  uses  OUTPUT  for  its  output  file.  In  any  case  OUTPUT  should 
be  declared  in  the  main  program  statement. 

EXAMPLE  OF  USE 

In  this  example  all  default  values  are  used  excep  a floating 
point  sort  is  done.  The  output  file  is  stored  on  a permanent  file 
for  later  use. 

First  the  control  deck,  then  the  source  listing  of  the  MAIN 
program:  All  subroutines  except  MAIN  itself  are  assumed  to  be 

stored  in  user  library  BARLIB. 

BARS  R , CM6 5000 , T 3O 
ATT ACH( BARLIB) 

ATTACH(FIL, ) 

request(fils,*pf) 

FTN(SL,R=3) 

L I BRAR Y ( COBOL , B ARL I B ) 

fa(.65000) 

CATALOG  (FILS, ) 

7/8/9 

[program  MAIN] 

6/J/8/9 

Source  listing  of  MAIN 
PROGRAM  MAIN(OUTPUT) 

COMMON/ FITAIN/ FITAIN( 35 ) 

COMMON/ FITAOUT/ FIT AOUT( 35 ) 

COMMON/ INBUF/INBUF(5l*0 
COMMON/OUTBUF/OUTBUF(514) 

C0MM0N/MESSA/IFATAL,MFSSA(20) 

COMMON/ IBUF/BUF( 100 ) 

COMMO N / P AR AM / P ARAM ( 1 0 ) 

DATA  (PARAM  = 5*  " ", "FLOAT",  V*  " ") 

CALL  BIBSUBl 
END 
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APPENDIX  A 

6-BIT  CHARACTER  CODE  COLLATING  SEQUENCES 


COBOL6* 

DISPLAY  + 

INTBCD 

ASCII6++ 

Graphics 

Display 

Code 

Graphics 

Display 

Code 

Graphics 

CDC 

INTBCD 

Graphics 

Sequence 

blank 

55 

: t 

00* 

0 

00 

blank 

00 

< 

74+ 

A 

01 

1 

01 

1 

01 

63 

B 

mm 

2 

II 

02 

[ 

61 

C 

K3 

3 

Efl 

# 

03 

- 

65 

D 

04 

4 

04 

$ 

04 

= 

60 

E 

05 

5 

05 

%++ 

05 

A 

67 

F 

06 

6 

06 

& 

06 

t 

70 

G 

07 

7 

07 

1 

07 

! 

71 

H 

10 

8 

10 

( 

10 

> 

73 

I 

11 

9 

11 

) 

11 

> 

75 

12 

12 

♦ 

12 

— I 

76 

1 1 

13 

X 

13 

+ 

13 

• 

57 

14 

* 

14 

» 

14 

) 

52 

M 

15 

15 

- 

15 

» 

77 

N 

16 

1 

16 

• 

16 

+ 

45 

O 

17 

1 

17 

/ 

17 

$ 

53 

P 

20 

1 1 1 

20 

0 

20 

♦ 

47 

Q 

21 

21 

1 

21 

- 

46 

R 

22 

B 

22 

2 

22 

/ 

50 

S 

23 

C 

23 

3 

23 

* 

56 

T 

24 

D 

24 

4 

24 

( 

51 

U 

25 

E 

25 

5 

25 

= 

54 

V 

26 

F 

26 

6 

26 

64 

W 

27 

G 

27 

7 

27 

< 

72 

X 

30 

H 

30 

8 

30 

A 

01 

Y 

31 

I 

31 

9 

31 

B 

02 

Z 

32 

< 

32 

: 

32 

C 

03 

0 

33 

. 

33 

$ 

33 

D 

04 

1 

34 

) 

34 

< 

34 

E 

05 

2 

35 

> 

35 

= 

35 

F 

06 

3 

36 

”1 

36 

> 

36 

G 

07 

4 

37 

; 

37 

? 

37 

H 

10 

APPENDIX  A (continued) 
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(Under  the  (DC  63-character  set.  there  is  no  percent  graphic;  the  colon  is  display  code  63.  Display  Code  00 
is  not  used. 


((Under  the  ASCII  63-character  set.  there  is  no  percent  graphic;  the  colon  collates  in  position  05,  not 
position  32. 
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APPENDIX  B 


If  the  value  of  parameter  6 is  "DISPLAY"  and  parameter  6 is 
"MINE"  (and  similarly  for  corresponding  parameters  for  additional 
sort  keys),  the  following  collating  sequence  is  used: 

: (actually  00g) 

blank 

A 

1 

Z 

0 

i 

9 


/ 

( 

) 

$ 


y 


& 

[ 

1 

% 

11 

(underline ) 

I 


< 

> 

<? 

\ 

/x 


267  - 


PML  159 


NAME  : 

CATEGORY: 

TITLE: 

LANGUAGE : 

PROGRAMMER: 

DATE: 


BIBSUB2,  revision  0,  subroutine,  PML  159 
General  purpose  file  processor 
Sequential  to  word  addressable  transformer 
CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 
July  22,  1976 


DESCRIPTION 

BIBSUB2  creates  a "random  access"  (acutally  word  addressable, WA) 
file  from  a sequential  file  with  fixed  length  records.  This  WA  file 
is  similar  to  that  produced  by  a CDC  Fortran  WRITMS . However  no  record 
index  is  produced  as  is  done  using  the  standard  "mass  storage  file" 
routines  which  are  available  within  CDC  Extneded  Fortran.  For  this 
reason  BIBSUB2  is  most  useful  for  creating  files  with  fixed  length 
records  wherein  the  desired  record  location  may  be  easily  computed. 

(see  next  section)  Because  no  index  array  is  required,  the  use  of 
BIBSUB2  can  save  considerable  storage  in  programs  which  require  the 
use  of  random  access  capabilities. 


USAGE 


CALL  BIBSUB2 

Use  of  common  storage  for  input 

All  of  the  controlling  data  for  BIBSUB2  is  passed  through 
labeled  common  /PARAM/ . This  data  is  in  the  form  of  character 
strings  (Hollerith),  one  word  per  datum.  A blank  word  is  replaced 
with  default  values  as  shown  in  brackets  below.  Data  is  listed 
in  the  order  in  which  it  should  appear  in  /PARAM/.  Refer  to  the 
notes  marked  by  asterisks  for  more  details  and  restrictions: 


1)  Input  file  name  ["FIL"]  *1 

2)  Output  file  name  (input  file  name  with  "R"  at  end) 


note 


*1  The  input  file  name  is  the  logical  file  name  which  consists 
of  up  to  7 alpha-numeric  characters  starting  with  a letter.  If 
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the  default  output  file  name  is  to  be  used,  the  input  file  name 
can  consist  of  at  most  6 characters.  File  names  should  be  left 
justified.  The  input  file  should  be  sequential  and  consist  of 
w-type  record  (e.g.  as  produced  by  a standard  Fortran  unformatted 
write  statement).  The  maximum  record  length  is  ^12  words.  Input 
and  output  files  are  rewound  before  and  after  use. 

Use  of  common  storage 

The  following  labeled  common  storage  areas  should  be  declared 
in  the  calling  program  or  in  another  subroutine  which  is  loaded 
before  BIBSUB2 : 

/FITAIN/  (35) 

/FITAOUT/  (35) 

/ INBUF/  (514) 

/ OUTBUF/  (514) 

/IBUF/  (maximum  record  length) 

/MESSA/  IFATAL,  (20) 

The  following  labeled  common  storage  areas  are  used  by 
BIBSUB2  to  communicate  with  other  subroutines: 

/SUB/  (2) 

STORAGE  REQUIRED 

BIBSUB2  requires  322  (21 0. „)  not  including  common  storage  areas 

B 1 U 

and  other  anciliary  subroutines.  It  will  usually  run  with  a good 
deal  less  than  60  K (octal)  words. 

ALGORITHM 

The  parameters  are  first  "translated"  by  subroutine  TRANS.  If 
a parameter  can  not  be  properly  interpreted  an  exit  is  made  from  the 
subrout ine . 

All  file  manipulation  is  accomplished  using  Record  Manager  call 
statements  . 
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A check  for  a non  empty  input  file  is  made  before  further  processing 
is  done.  If  input  is  empty  BIBSUB2  returns  with  IFATAL=1  in  /MESSA/ . 

The  length  of  records  in  the  output  file,  is  obtained  by  a call 
to  IFETCH( • • *,2LRL)  on  the  first  input  record.  Thus,  even  though 
the  input  file  does  not  necessarily  consist  of  fixed  length  records, 
the  output  file  does. 

After  the  last  record  has  been  copied  from  input  to  output,  a 
■ zero  length  "record"  is  appended  to  the  output  file.  A test  for  this 

(record  may  be  made  (see  EXAMPLE  OF  USE)  if,  for  example,  a sequential 
read  is  done  and  a normal  stop  at  end  of  file  is  desired. 

SPECIAL  CAUTION  AND  FEATURES 

The  input  file  need  not  consist  of  fixed  length  records  but  in 
most  instances  they  should  be,  since  the  output  file  does  contain 
fixed  length  records,  the  length  of  which  is  equal  to  the  length  of 
the  first  input  record. 

IFATAL  is  set  to  1 if  the  input  file  is  empty. 

TIMING 

Very  little  CP  time  is  required  since  this  is  basically  a file 
manipulation  subroutine.  In  most  instances  less  than  10  CP  seconds  are 
required . 

) ERROR  MESSAGES 

► ■ 

"BIBSUB2,  INPUT  FILE  file  name  EMPTY" 

Occurs  if  the  input  file  does  not  exist  i.e.  contains  no  records. 

"BIBSUB2,  FATAL  ERROR,  PARAMETER  n HAD  BAD  VALUE" 

Since  the  only  input  parameters  are  file  names  the  message  will 
occur  only  if  the  file  name  is  more  than  7 characters  in  length. 
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SUBROUTINES 

These  subroutines  are  normally  obtained  from  a user  library. 

EOFILE  ) / , c c ■ 1 f ^ \ 

IEOF  ) (end  °f  flle  f r lnPut) 

ERRORl  (error  processing  for  input) 

ERR0R2  (error  processing  for  output) 

TRANS  (translates  input  parameters) 

MESSAGE  (writes  informative  and  error  messages) 


ACCURACY 

Not  applicable. 

COMMENTS  ON  USAGE 

BIBSUB2  is  useful  for  creating  a random  access  file  within  a 
system  of  subroutines,  in  particular  when  it  is  desirable  to  eliminate 
the  need  for  an  index  array.  It  is  necessary,  however,  to  access 
this  file  using  Record  Manager  calls  (see  EXAMPLE  OF  USE). 

FILE  DESCRIPTIONS 

Files  need  not  (and  probably  should  not)  be  declared  on  a program 
statement . 

input  sequential,  fixed  length  (maximum  512  words),  w-type  records 
(e.g.  Fortran  unformatted  file) 

output  word  addressable,  fixed  length  (maximum  512  words),  w-type 
records 

EXAMPLE  OF  USE 

The  following  program  creates  a random  access  file  with  logical 
file  name  RAYSR  from  an  input  file  with  logical  file  name  RAYS. 

PROGRAM  MAIN  (OUTPUT) 

common/fitain/fitain( 35 ) 

COMMON/ FITA0UT/FITA0UT( 35) 

COMMON/INBUF/ inbuf( 512 ) 

COMMON/OUTBUF/OUTBUF(  51 1+  ) 

COMMON / ME S S A / I FAT AL , ME S S A ( 20 ) 
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C0MM0N/PARAM/PARAM(2) 

DATA  (PARAM  = "RAYS",  " ") 

CALL  BIBSUB2 
END 

The  following  example  gives  the  elements  for  accessing  the  file 
produced  by  the  above  example.  Common  storage  areas  /FITAIN/,  /INBUF/ 
and  /IBUF/  are  used  here  but  need  not  be  incommon  in  general.  The 
error  subroutine  ERR0R1  should  be  declared  external. 

COMMON/ FITAIN/FITAIN( 35) 

COMMON / INBUF / INBUF ( 35 ) 

COMMON/ IBUF/ BUF( 100) 

EXTERNAL  ERROR 1 

CALL  FILEWA( FITAIN, jLLFN, 5LRAYSR, 2LRT , 1LW, 

$3LMRL,  5120, 2LEX,  ERRORl , ^LBFS,  514,  jLFWB , INBUF) 

CALL  OPENM( FITAIN, 5L INPUT) 

IWA  = (LREC  + 1)  • ( IDREC  - 1)  + 1 

IWA  is  the  address  of  the  desired  record  in  RAYSR.  It  is  found 
by  adding  1 to  the  nominal  record  length,  LREC  (since  w-type 
records  include  a control  word  which  is  not  normally  included 
in  computing  record  length),  mult  iplyirg  this  by  the  desired  record 
number  IDREC  less  one  and  adding  1 . 

CALL  GET(FITAIN,BUF,IWA) 


CALL  CL0SEM( FITAIN) 

The  "end  of  file"  subroutine  IEOF  may  be  used  in  case  the  number 
of  records  in  RAYSR  is  not  known.  For  example: 

IF  (IEOF(X)  .EQ.  0)  100,110 

( IEOF  is  zero  if  no  error  condition  exists) 

If  the  file  is  being  read  sequentially  a check  can  be  made  for 
zero  record  length  as  follows: 

IF  (IFETCH(FITAIN,2LRL)  .EQ.  0)  GOTO  100 
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NAME: 
CATEGORY: 
TITLE: 
LANGUAGE : 
PROGRAMMER: 


TRANS,  revision  0,  subroutine,  PML  160 
General  purpose 

Translation  of  character  string  data 
CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories, 


DATE: 


Inc  . 


DESCRIPTION 

TRANS  "decodes"  character  string  data  into  the  form  it  is  normally 
used  in  a standard  Fortran  program.  Specifically  it  will  produce  the 
following  data  forms: 

integer 

floating  point 

character  string  left  justified,  blank  fill 
character  string  left  justified,  zero  fill 
character  string  left  justified,  ; fill  (special) 

In  addition  it  substitutes  default  values  when  required. 

USAGE 

CALL  TRANS(PARAM, VAR, ITYPE, DEFAULT),  RETURNS(M) 
parameters 

PARAM  Character  string  parameter  to  be  translated  or 
default  " " or  "?". 

VAR  variable  into  which  the  translated  parameter  is 

placed  (output  of  TRANS).  If  ITYPE  = 4,  VAR  may 
also  be  used  for  input.  See  DEFAULT 
ITYPE  controls  decoding  as  follows  (integer) 

1 integer 

2 floating  point 

3 character  string  left  justified,  blank  fill 

k " " " " , zero  fill 

5 " " " " , semi-colon  fill 

DEFAULT  default  value  to  be  put  in  VAR  if  PARAM  is  "blank" 
or  "?".  DEFAULT  should  contain  data  in  a form  which 
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agrees  with  ITYPE  (with  one  exception  (see  below)). 
For  example  if  ITYPE  = 2 (floating  point),  DEFAULT 
should  contain  a floating  point  number  (not  in 
character  string  representation).  The  exception  is 
for  ITYPE  = 4 which  is  used  mainly  to  produce  file 
names  which  must  be  left  justified,  zero  filled. 

In  this  case  DEFAULT  can  be  in  the  form 

"/string" 

where  string  isasequence  of  characters  which  are  to 
be  concatenated  with  those  in  VAR  to  produce  the 
output  of  TRANS. 

For  example : 

Fl  = "RAY" 

F2  = " " 

CALL  TRANS (F2, Fl, L, "/S" ),  RETURNS(lOOO) 

will  produce  an  output  value  of  Fl  ="RAYS".  Note 
that  in  this  case  VAR  is  used  both  for  input  and 
output.  If  ITYPE  = 5,  the  results  are  similar 
except  that  the  word  is  filled  with  semi-colons 
rather  than  zeroes  . 

use  of  common  storage 

The  following  labeled  common  storage  area  should  be  declared 
in  the  calling  program  or  in  a subroutine  loaded  before  TRANS: 

/MESSA/ IFATAL,  (20) 

The  following  labeled  common  storage  area  is  normally  used 
for  passing  the  calling  subroutine  name  to  TRANS: 

COtudON/SUB/SUB,  ICODE 

If  SUB  is  set  to  the  character  string  name  of  the  calling 


subroutine,  this  name  will  be  printed  along  with  the  value  of  PARAM  and 
its  "translation"  (octal)  in  VAR. 
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abnormal  return 

If  a "translation"  can  not  be  made,  TRANS  will  return  to 
the  calling  subroutine  at  the  statement  number  assigned  to  M.  In 
addition  IFATAL  is  set  to  one.  This  condition  occurs  when  ITYPE=1 
or  2 if  PARAM  can  not  be  properly  decoded.  For  example,  if  ITYPE=1 
and  PARAM="1.5"  an  error  occurs  since  "I.5"  is  not  an  integer.  If 
ITYPE=4  and  the  number  of  letters  in  VAR  is  greater  than  7>  an 
error  has  also  occurred.  If  ITYPE=4  or  “5  and  VAR  is  blank,  an 
error  has  also  occurred. 

STORAGE  REQUIRED 

The  amount  of  storage  required  for  TRANS  and  its  associated 

special  subroutines  (those  marked  with  * under  SUBROUTINES)  is  442Q  (290,  ). 

o iu 

ALGORITHM 

If  ITYPE=1  or  2,  PARAM  is  right  justified  and  a DECODE  with  the 
appropriate  format  used.  If  "illegal  data  in  field"  is  encountered,  the 
count  in  ERRSET  is  incremented.  A check  for  this  condition  is  made  and 
if  it  occurs,  TRANS  returns  to  M.  If  ITYPE=3  (character  string  data) 

TRANS  merely  equates  VAR  with  PARAM  if  PARAM  is  neither  " " or 
otherwise  VAR  is  equated  with  DEFAULT.  If  ITYPE=4  and  DEFAULT  is  not 
of  the  form  "/string",  the  shifted  blanks  in  PARAM  or  DEFAULT  are 
searched  for  from  the  right  by  shifting  to  the  right  and  masking.  Zero 
fill  is  then  done  by  "and-ing"  PARAM  or  DEFAULT  with  the  appropriate 
length  mask.  A similar  scheme  is  used  if  ITYPE=5  except  by  "or-ing" 
with  the  complement  of  the  mask;  fill  with  semi-colons  is  obtained 
since  semi-colon  is  octal  77-  If  ITYPE=4  and  DEFAULT=  "/string",  the 
contents  of  VAR  is  zero  filled  as  PARAM  or  DEFAULT  was  then  "or-ed" 
with  the  appropriately  shifted  and  masked  contents  of  DEFAULT. 

SPECIAL  CAUTION  AND  FEATURES 

The  calling  subroutine  should  have  an  appropriate  return  location 
if  an  error  is  detected  in  TRANS.  Be  sure  to  store  the  name  of  the 
calling  subroutine  in  /SUB/. 

The  input  values  of  PARAM  and  its  translation  in  octal  are  printed 
out  using  a call  to  MESSAGE. 
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TIMING 

Not  applicable 
ERROR  MESSAGES 

"calling  subroutine,  PARAMETER  param  VALUE  = value  BAD" 
where:  calling  subroutine  is  the  name  of  the  calling  subroutine 
provided  it  has  been  put  into  /SUB/, 
param  is  the  character  string  value  of  PARAM 
value  is  the  octal  value  of  VAR 

This  message  is  printed  if  a translation  can  not  be  made  as 
previously  explained. 

"calling  subroutine,  PARAMETER  param  VARIABLE  var  + DEFAULT 
default  TOO  LONG" 

where:  var  is  the  character  string  value  of  VAR  (used  as  input) 
default  is  the  character  string  value  of  DEFAULT 

This  message  is  printed  if  the  result  of  concatenating  VAR  with 
DEFAULT  (when  ITYPE=4  and  DEFAULT  starts  with  "/")  is  longer  than  7 
characters  . 

SUBROUTINES 

(Subroutines  marked  with  * are  considered  to  be  special  purpose 
and  considered  to  be  part  of  TRANS.  Others  are  normally  obtained  from 
a user  1 ibrary . ) 

FILEN*  (replaces  right  hand  blanks  in  a word  with  zeroes 
or  semi-colons ) 

INT*  (decodes  integer  or  floating  point  strings) 

MESSAGE  (writes  informative  error  messages) 

ACCURACY 

Not  applicable 

COMME NT S ON  USAGE 


TRANS  is  used  primarily  by  subroutines  which  receive  their  controlling 
parameters  as  character  strings. 


NAME:  DEN, revision  0,  subroutine,  PML  l6l 

CATEGORY:  Special  purpose  (ray-trace  analysis) 

TITLE:  Ray  density  calculations  and  flux  tube  generation 

LANGUAGE:  CDC  Extended  Fortran 

PROGRAMMER:  T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc 


depends  on  version 


DATE 


DESCRIPTION 


Subroutine  DEN  is  used  to  output  "flux  tubes"  and  to  calculate 
"ray  density"  in  the  form  of  areas  subtended  by  the  landing  points  of 
neighboring  rays.  Briefly  it  works  as  follows: 


The  input  to  DEN  is  the  bundle  of  rays  (file  RAY  from  CRRSET,  see  PML  157) 
properly  sorted  by  frequency,  azimuth  and  elevation.  In  addition  this 
bundle  must  have  been  made  word  addressable.  Thus  typically  we  have 
the  sequence: 


RAYSR 


RAYS 


BIBSUBl 


RAYSET 


CRRSET 


BIBSUB2 


For  each  frequency  DEN  performs  flux  tube  calculations  on  4 neighboring 
rays  where  neighboring  rays  are  defined  as  having  neighboring  take  off 
directions.  More  specifically  consider  two  adjacent  azimuth  "planes" 
labeled  by  <*..  and  e<0  = o<  +a  <*.  respectively  jwithin  plane  1 are 


rays  at  elevation  angles 


The  first  tube  is  defined  by  the  rays 


the  next  tube  by  R 


Several  things  should  be  noted  about  this  scheme  of  selecting  rays  to 
define  tubes: 


There  should  be  two  or  more  rays  in  adjacent  azimuth  planes 
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2)  The  increment  in  elevation  angles  for  adjacent  azimuth  planes 
need  not  be  the  same  nor  do  they  need  to  start  at  the  same 
elevation  angle. 

3)  Tubes  are  always  started  at  the  bottom  (lowest  elevation  angles) 
and  work  up.  If  the  number  of  rays  in  adjacent  azimuth  planes 
are  unequal,  the  highest  excess  rays  will  not  take  part  in  flux 
tube  calculations. 


Having  found  four  neighboring  rays,  DEN  then  checks  to  see  if  these  rays 
all  land  at  the  first  landing  point  or  landing  region  e.g.  "90  deg."  or 
"rcvr"  (specified  in  ARRAY  -see  CRRSET);  if  so  it  proceeds  to  calculate 
landing  point  area,  etc.  If  one  or  more  rays  do  not  land,  then  the 
number  of  these  rays  (numbered  as  shown  above)  are  stored.  Landing 
region  area  is  calculated  using  plane  geometry  (even  though  as  a rule  4 
points  do  not  define  a plane).  One  of  the  points,  P^  (that  associated 
with  ray  4 (R  ) ),  is  projected  into  the  plane  defined  by  points  P^,  P , P 
associated  with  R^,  R , R so  that  the  area  computed  is  that  defined  by 
P , P , P,,  P,  ' where  P ' is  the  projected  point.  The  main  reason  for 

* “ 3 ^ ^ 

doing  plane  geometry  is  that  it  is  easier  to  make  various  tests  on  the 
"shape"  of  the  area  computed.  Area  is  computed  from 


A " 2 


I s in  X 


13  24 

where  if  = angle  between  diagonals  d , d where  d is  the  line  P.P  el 

1324  ly  13 


In  the  current  version  of  DEN  an  area  is  computed  only  if  the  area 
P. , PQ,  P , P, ' satisfies  the  following  "good  area"  criteria: 

1234 

1)  The  points  P , P must  be  in  the  same  half-plane  bordered  by 

2 3 

line  P1P!  ' . 

2)  The  intersection  of  the  diagonals  d^  , d must  be  in  the  same 
half-plane  (see  1 ) as  P,  and  P . 

J 

3)  Let  P be  the  point  of  intersection  of  the  two  diagonals.  Then 
< P, P^P  must  be  greater  than  < P, P^P. 

4)  The  length  of  d^  must  be  greater  than  d^p  (distance  between 
point  P^  and  point  of  intersection  of  the  diagonals. 


2 
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Typically  P P,  means  the  line  through  points  P and  P,  ; < P.  P P 

14  14  4 12 

means  the  angle  between  the  lines  P^P^  and  P^P  , g°ing  counter-clockwise 
from  P^P  to 

These  criteria  essentially  force  "good"  areas  to  be  convex  quadrilaterals 
with  the  points  in  the  same  or  reverse  order  of  the  outgoing  rays. 

If  a good  area  can  not  be  found,  a value  of  -1  is  returned  from  the 
subroutine  AREA1  which  calculates  the  landing  point  area.  In  addition 
a "skewness"  code  is  returned  indicating  where  the  points  failed  to 
meet  one  of  the  above  criteria.  In  an  attempt  to  summarize  the  shape  of 
the  areas  defined  by  the  flux  tubes  some  other  quantities  are  computed 
and  returned  by  AREAl . These  are: 

1)  area  "polarity"  (+1  or  -1).  As  noted  above  P^P,+  (here  we  are 

thinking  of  a directed  line  in  the  direction  P. to  P, ) divides 

i.  4 

the  plane  into  "positive"  and  "negative"  half  planes  where  the 
positive  half  plane  is  to  the  left  of  line  P^P  looking  in  the 

direction  P to  P.  . If  P and  P.  fall  in  the  positive  region 

14  c.  3 

then  the  area  is  positive,  etc. 

2)  cosj^  where^  is  the  angle  between  the  current  diagonal  d^ 
and  a reference  diagonal.  The  purpose  of  this  parameter  is 
to  indicate  how  rapidly  the  area  changes  its  orientation  as 
defined  by  the  reference  diagonal.  The  reference  diagonal  is 
chosen  as  follows: 


a) 


b) 


if  the  azimuth  of  R^  of  the  current  flux  tube  is  the  same 
as  that  of  the  preceeding  flux  tube,  then  the  reference 
diagonal  is  d^  of  the  preceeding  flux  tube. 


if  the  azimuth  of  R^  of  the  current  flux  tube  is  different 
from  that  of  the  preceeding  flux  tube,  then  the  reference 
diagonal  is  d^  of  the  flux  tube  with  lowest  elevation  angle 
and  preceeding  azimuth. 


c)  at  the  start  where  there  is  no  preceeding  flux  tube,  use 
the  current  diagonal  d^  . 

(the  azimuth  and  elevation  angle  of  R^  of  the  reference 
diagonal  is  included  in  the  information  printed  by  DEN.) 


3)  the  sine  of  the  angle  between  the  two  diagonals  of  the  area. 


3 
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4)  length  of  the  two  diagonals  (this  and  3 essentially  define 
the  shape  of  the  area). 

5)  the  distance  which  is  moved  into  the  plane  P^,  P^,  Pv  to 
obtain  P,  1 . 

The  printed  output  of  DEN  includes  the  following  information  for  each 
landing  region  and  each  flux  tube; 

1)  the  ray  number  as  it  pertains  to  the  flux  tube  (l,  2,  3 or  4 
for  R^,  Rg,  R^,  R^  - see  above)  and  azimuth  and  elevation  of 
each  ray  in  the  flux  tube. 

2)  the  mean  azimuth  and  elevation  of  the  flux  tube  (essentially 
the  direction  of  the  flux  tube). 

3)  if  an  area  can  not  be  defined  because  of  missing  rays,  the 
numbers  of  such  rays  (e.g.  1,  2 if  R^  and  R^  do  not  land). 

4)  if  the  points  P^,  P^,  P , P^  do  not  satisfy  the  ''good  area" 
criteria  then  a "skewness  code"  corresponding  to  one  of  the 
above  conditions  e.g.  SKEWl  means  that  condition  1 was  not 
satisfied,  etc.  (The  points  can  fail  to  meet  more  than  one 
criteria.  Only  the  firs tone  not  met  in  the  order  given  above 
is  given.) 

5)  for  good  areas,  the  following  data: 

mean  group  path  length  (km) 

mean  angle  of  arrival  (degrees  from  horizontal) 


horizontal 


ray  vector 


angle  of  arrival  (negative) 


projected  area  (km  ) (projected  perpendicular  to  arrival 
vector ) 

relative  projected  area  = projected  area  divided  by  the  1 km 
area  (area  at  1 km  from  transmitter) 

area  polarity  - (see  above) 
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cosine  of  the  angle  between  the  diagonal  d and  the 
reference  diagonal  (see  above) 

azimuth  and  elevation  angle  (degrees)  of  of  the 
reference  diagonal 

relative  sine  of  the  angle  between  area  diagonals  = sine  of 
angle  between  d^,  d^  divided  by  the  sine  of  the  angle 
between  the  diagonals  of  the  1 km  area. 

relative  ratio  of  the  diagonals,  i.e.  d l3/d24  divided  by 
d|  /d^  where  prime  refers  to  the  1 km  area. 

In  addition  to  the  printed  output  which  describes  the  landing  regions, 
DEN  produces  a "flux-tube"  file  referred  to  as  FLUXT.  This  file  is 
similar  to  file  RAY  produced  by  CRRSET  except  that  instead  of  each 
record  representing  a ray  at  its  landing  point,  each  record  represents 
a flux  tube  at  its  landing  region. 


USAGE 


CALL  DEN ( IN , OUT , NREC , M, NEL , STORE 1 , ST0RE2 ) 


Input  parameters 

For  explanation  of  permissable  values  and  role  of  parameters 
see  the  notes  indicated  by  asterisks.  There  are  no  default  values. 

IN  input  file  name  (left  justified,  zero  fill)  *1 

OUT  output  file  name  (left  justified,  zero  fill)  *2 

NREC  number  of  input  data  records  (integer)  *3 

M input  record  length  (words,  integer)  *1+ 

NEL  maximum  number  of  elevation  angles  *5 

per  azimuth  (integer) 

STOREl  scratch  storage  arrays  which  must  be  declared  in  *6 
ST0RE2  the  calling  subroutine 


Notes  on  input  parameters 

*1  This  is  the  logical  file  name  of  the  input  file,  7 characters 
or  less.  It  is  typically  a "random  access"  version  of  "RAY" 
produced  by  CRRSET  or  of  a sorted  "RAY"  - see  diagram  in 
DESCRIPTION.  For  a detailed  description  of  the  record 
structure  of  the  file  see  PML  157» 
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*2  This  is  the  sequential  output  file  containing  flux 

tubes.  See  FILE  DESCRIPTIONS  for  details  of  the  record 
structure,  etc. 

*3  The  input  file  is  assumed  to  contain  a "header"  (first) 
record  with  the  structure  shown  in  PML  157*  NREC  should 
not  include  this  header. 

*4  Record  length  is  included  in  the  header  record  of  the 

input  file  but  is  also  required  here  in  order  to  define  the 
structure  of  the  arrays  STOREl,  ST0RE2  which  are  declared 
to  have  dimensions  (M,NEL)  in  DEN. 

*5  See  note  *4 

*6  STORE 1 and  ST0RE2  must  be  declared  in  the  calling  subroutine 
to  have  a size  at  least  as  large  as  M x NEL. 

use  of  common  storage 

The  following  labeled  common  storage  areas  should  be  declared 
in  the  calling  program  or  in  some  subroutine  which  is  loaded  before 


/FITAIN/ (35) 

/ FITAOUT/ (35) 

/INBUF/(514) 

/outbuf/(514) 

/ IBUF/ (maximum  of  input/output  record  length,  usually 
100  is  sufficient) 

The  following  labeled  common  areas  are  used  by  DEN  for  commun- 
ications with  other  subroutines: 

/SUB/SUB, ICODE 

/DEN/(26)  - communicates  with  AREA1  (see  appendix  A) 

miscellaneous 

1)  Record  Manager  calls  are  used  for  manipulating  the  main  input 
and  output  files,  IN  and  OUT,  thus  normally  they  should  not  be 
declared  in  the  main  program.  Both  files  are  rewound  at  subroutine 
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start  and  end.  The  input  file  must  not  be  empty  since  DEN 
is  not  "protected"  for  empty  input  files . If  NREC  is  less  than  3, 
however,  DEN  will  make  a normal  return  having  produced  no  output 
file . 

2)  DEN  tries  to  compute  "ray  densities"  and  flux  tubes  for  the 
entire  input  file.  It  processes  the  input  file  in  equi-frequency 
batches.  For  a given  frequency  a flux  tube  is  defined  as  long  as 
there  exists  one  or  more  "landing  points"  on  4 adjacent  rays  where 
adjacent  rays  are  defined  by  2 rays  each  in  two  adjacent  azimuthal 
"planes"  e .g . 

(az,el)  = (25.5,1.),  (25.5,2.),  (26,1.5),  (26,2.5) 

Note  that  elevation  angles  do  not  have  to  correspond.  In  the  present 
version  of  DEN  azimuthal  separation  is  irrelevent  but  it  is  an  easy 
modification  to  define  flux  tubes  only  if  /A  az / < C where  C is  a 
number  which  can  be  passed  to  DEN. 

STORAGE  REQUIRED 

Storage  required  for  DEN  and  its  associated  "spec ial"subroutines 
is  3170q  (1656^q).  This  figure  does  not  include  space  required  by  the 
arrays  STOREl  and  ST0RE2 . 

ALGORITHM 

The  random  access  input  file  is  first  searched  for  a change  in 

ray  frequency  while  storing  the  record  numbers  of  azimuth  changes. 

Using  the  stored  information  on  azimuths,  records  for  azimuth^  are 

read  into  STOREl  then  records  for  azimuth.  , are  read  into  ST0RE2. 

i+1 

A search  is  then  made  through  STOREl  and  ST0RE2  for  flux  tubes  using 
the  scheme  outlined  in  DESCRIPTION.  Landing  point  areas  are  computed 
for  all  landing  points  along  a ray  for  which  they  can  be  "well  defined" 
as  outlined  in  DESCRIPTION.  The  area  computation  is  done  within  subroutine 
AREA1  which  is  briefly  described  in  Appendix  A.  AREAl  is  also  used 
to  calculate  the  flux  tube  cross-sectional  area  at  1 km  from  the  trans- 
mitter. In  addition  to  computing  flux  tube  landing  point  areas,  DEN 
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is  used  to  compute  various  other  quantities  which  are  associated  with 
each  flux  tube.  These  quantities  are  stored  on  the  output  "flux  tube" 
file  which  is  described  later  under  FILE  DESCRIPTIONS.  The  number  of 
such  quantities  is  somewhat  variable  so  their  computation  is  not 
described  here  but  is  briefly  mentioned  in  the  later  section.  As 
mentioned  previously,  an  area  may  be  "undefined"  either  because  the 
4 rays  do  not  all  land  or  if  they  do  land  because  the  points  do  not 
have  a particular  pattern.  The  former  case  is  defined  by  setting  R=$ 
(see  PML  157>  page  4)  in  the  various  P^  which  describe  each  potential 
landing  point.  This  is  reflected  in  the  search  through  STOREl  and 
ST0RE2  for  rays  which  have  landed. 

SPECIAL  CAUTION  AND  FEATURES 

1)  DEN,  of  course,  depends  upon  having  a particular  input  record 
structure  which  is  at  present  defined  by  CRRSET,  in  particular  for 
locating  data  which  is  to  be  used  in  computing  various  quantities  for 
the  output  file  of  "flux  tubes".  From  time  to  time  it  may  be  necessary 
to  change  the  structure  of  the  input  file,  thus  DEN  should  be  modified 
accordingly . 

2)  The  number  of  values^ M2^ used  to  describe  each  "point"  in  the  output 
flux  tube  file  may  be  changed  by  suitably  modifying  DEN.  This  variable 
M2  is  assigned  a value  in  a data  statement  in  DEN  and  should  be  changed 
if  necessary. 

3)  DEN  is  limited  to  a maximum  of  9 landing  points  per  ray  by  some 
dimension  statements. 

4)  If  the  number  of  landing  points  exceeds  4 the  output  file  "PRINT" 
will  only  contain  information  about  the  first  4 because  of  page  size 
limitations . 

5)  In  addition  to  printing  information  about  landing  point  areas, 

DEN  prints  (on  OUTPUT)  the  min.  and  max.  frequencies,  min.  and  max. 
starting  elevation  and  azimuthal  angles  (mean  values)  over  all  flux 
tubes  stored  on  file  OUT. 

TIMING 

No  accurate  timing  figures  are  available.  However  it  es  estimated 
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that  for  two  landing  points  approximately  .015  seconds  per  flux  tube 
is  required. 


ERROR  MESSAGES 

"NO  FLUX  TUBES  CAN  BE  DEFINED" 

If  for  any  frequency,  less  than  two  initial  azimuths  are  found, 
this  message  is  printed.  Note  that  this  message  may  occur  several 
times  for  a given  input  file  which  consists  of  several  "frequency  sets". 

"DEN  - NO.  RECS  TOO  SMALL,  n" 

Occurs  if  there  are  less  than  4 input  records,  in  which  case  it 
is  impossible  to  generate  flux  tubes.  The  value  of  n is  the  number  of 
input  records  (NREC). 


SUBROUTINES 


(Subroutines  marked  with  * are  considered  to  be  special  purpose 
and  part  of  DEN.  Others  are  normally  obtained  from  a user  "universal" 
library . ) 


AREA1*  (computes  landing  point  areas  - see  Appendix  A) 
COORD*  (converts  from  spherical  to  cartesian  coordinates) 
DEV*  (computes  azimuthal  deviation) 

ERRORl  (error  handling  for  input  file) 

ERR0R2  (error  handling  for  output  file) 


ACCURACY 

There  are  several  classes  of  errors  to  consider  when  DEN  is  used. 

The  first  is  strictly  computational  errors  due  to  finite  length  computer 
words,  etc.  This  source  of  error  can  be  neglected  compared  to  the  others. 

The  second  source  of  errors  to  consider  is  that  due  to  the  use  of  plane 
geometry  in  place  of  spherical  geometry  at  earth  landing  points.  Plane 
geometry  was  chosen  mainly  because  it  simplifies  considerably  the 
classification  of  the  landing  point  geometry  as  discussed  under  DESCRIPTIONS. 
Typically  this  simplification  introduces  an  error  of  less  than  l°/o 
which  is  not  considered  excessive.  The  third  source  of  error  lies 
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outside  of  the  domain  of  DEN  in  that  it  has  to  do  with  the  fact  that 
the  flux  tube  areas  are  used  for  estimating  back  scatter  power 
calculations  and/or  as  a measure  of  ray  focusing  or  defocusing.  A 
discussion  of  this  properly  belongs  elsewhere. 

COMMENTS  ON  USAGE 

DEN  is  a special  purpose  program  which  is  designed  to  work  with 
ray  records  as  they  are  typically  produced  by  CRRSET.  It  can  be  used 
with  any  input  file  which  preserves  the  input  file  structure  as  given 
in  PML  157.  The  main  requirement  for  the  definition  of  a "flux  tube" 
as  seen  by  DEN,  is  that  neighboring  rays  must  lie  on  vertical  azimuthal 
planes  i .e . 4 rays  must  be  related  by  (e*,  (3^),  ( , (3^),  A°<,  (3^), 

( cx  +^S‘x,(3,)  where  ( « , ^ ) means  (initial  take  off  azimuth,  initial 

take  off  elevation).  Note  that  (3^,  (3 (3  , £3  ^ can  be  all  different; 

but  (3 1 £ (3^  and  (3^  £ ^3^-  The  angular  differences  /■&'*/  and  /<a  (3  / 

are  immaterial  to  DEN  but  common  sense  and  experience  puts  limits  on 
their  magnitudes  for  sensible  results. 

FILE  DESCRIPTIONS 

There  are  four  files  used  by  DEN.  They  are  briefly  described  below: 

IN  fixed  length,  word-addressable,  w-type  records.  The 

record  structure  of  this  file  is  given  in  PML  157*  Note 
however  that  CRRSET  produces  a sequential  file;  thus 
typically  IN  is  produced  by  running  the  output  of  CRRSET 
through  BIBSUBl . The  file  is  rewound  at  the  start  and  t, 
of  DEN.  Record  Manager  calls  are  used  in  manipulat ir^  ' * 

file,  thus  it  is  not  necessary  to  declare  it  in  a ma l *• 

PRINT  formatted  output  file.  It  must  be  declared  ir  a ~i 
This  file  contains  most  of  the  printed  ( m p;  1 
of  DEN.  As  noted  previously  if  NPTS  1*  . • 
only  information  on  the  first  4 pou  • - 
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OUTPUT  usual  output  file  which  should  be  declared  in  the  main 

program.  It  is  used  for  error  and  informative  messages  only. 

OUT  fixed  length,  sequential,  w-type  records.  It  may  be  read 
using  Fortran  standard  unformatted  READ  statements.  File 
manipulation  is  done  within  DEN  using  Record  Manager  calls. 
The  file  is  opened  and  closed  within  DEN  with  rewind.  The 
record  structure  is  as  follows: 

header  record 

-999.  -999.,  -999.,  npts,  m,  nint,  ID(4),  r,  0,  0,  (HOP, WHY, i = 1,  npts), 
(title(i),  i = 1,  nint) 

where : 

- npts  = number  of  landing  points  [integer] 

- m = total  record  length  [integer] 

- nint  = number  of  integrated  quantities  [integer] 

- ID(4)  = last  h words  from  ID(10)  in  header  record  of  RAYSET 

[Hollerith] 

- HOP, WHY  ? landing  point  name  (hop  number  and  description  code) 

[integer,  Hollerith] 

- title  = titles  of  "integrated  quantites"  [Hollerith] 

flux  tube  records  (all  quantities  are  floating  point  unless 

specified  otherwise.  Parentheses  around  a 
symbol  indicates  that  it  is  a mean  quantity, 
i.e.  the  average  value  of  4 rays  defining  a 
flux  tube . ) 

f,  (a),  (e),  S,  P1?  P2,  •••  Pnpts 

Pt  = HOP, WHY,  (rr),  (rQ),  (r0),  A,  (^  ),  (t),^,  (Aa),  (*),  (O 


where : 


= transmitter  frequency  (Mhz) 

= initial  azimuth  (degree) 

= initial  elevation  (degree) 

= cross  sectional  area  at  1 km  (km  ) 
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- HOP  = hop  number  [integer] 

- WHY  = landing  point  name  code  [Hollerith] 

2 

-A  = landing  point  area  (km  ).  If  the  landing  point  is 

not  "defined"  for  one  of  the  reasons  mentioned  in 
DESCRIPTION,  A is  set  to  -1. 

- = angle  of  arrival  (rad)  (see  DESCRIPTION) 

- t = group  path  length  (km) 

- cT  = mean  square  deviation  of  group  path  length  (see  note) 

-Aa  = azimuthal  deviation  (deg.)  (see  note) 

- = absorption  (db)  or  zero  if  absorption  is  not  calculated 

during  ray  tracing 

- 1 = geometric  path  length  (km)  or  zero  if  it  is  not 

calculated  during  ray  tracing 


Note 


O'  is  calculated  using  the  expression: 


1/2 


/ £ t d - kt 

<r  J i=i  1 


where  t = 1/k  ^ t. 

i=l  1 


and  t^  is  the  group  path  length  for  ray  -i. 

4 a is  calculated  using  the  expression: 

A = cos”1  (cos0t  cos©  + sin©t  sin©  • cos(0  - 0fc)) 

if  A = 0,  then  Aa  = 0. 
if  sin©t  = Oy  then  Aa  = 0 - a 

otherwise 

D = signfCOS'^C°89  ~ cose-t ,:-S2?-±\  sin(d  - 0,.)] 
*•  sin©t  sin  A 

and  A a = D - a ; where : 

6^  0^  are  transmitter  spherical  coords. 

©,  0 are  landing  point  spherical  coords. 

a is  the  initial  azimuth. 
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r 


trailer  record 

999.,  999.,  999.,  fnln,  (<0mln,  (.^  (e)„In,  (•>„„, 

^min’  ^C^max 


where  min.  and  max.  are  over  all  the  flux  tubes  produced  by  DEN. 


EXAMPLE  OF  USE 

Normally  DEN  is  called  after  CRRSET  has  been  called  to  produce  a 
sequential  file  which  can  be  transformed  to  word-addressable  through 
BIBSUB2  to  produce  an  input  suitable  for  DEN.  The  following  example 
shows  the  additional  statements  which  must  be  added  to  the  example 
shown  in  PML  157  in  order  to  run  DEN: 

COMMON/ FITAIN/FITAIN( 35 ) 

COMMON/ INBUF/ INBUF( 35 ) 

C0MM0N/PARAM/PARAM(2 ) 

DIMENSION  ST0RE1(1600),  ST0RE2(l600) 

DATA  (PARAM="RAYS", "RAYSR" ) 

CALL  CRRSET("RAYSET","RAYS",  •••• 

CALL  BIBSUB2 

CALL  DEN(5LRAYSR, 5LFLUXT,NREC,M, 100, STORE 1, ST0RE2) 


•1 


Note  that  values  of  NREC  and  M (the  number  of  input  data  records  and 
their  length)  is  obtained  as  output  of  CRRSET.  If  CRRSET  is  not  run  in 
the  same  main  program  as  DEN  these  values  must  be  given.  NREC  can  be 
given  a value  less  than  the  total  number  of  data  records  output  by 
CRRSET  if  less  flux  tubes  are  desired. 
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APPENDIX  A 
Subroutine  AREA1 


DESCRIPTION 

Given  four  points  (x^,y^,z^)  i = 1,2, 3,4  in  a cartesian  system, 
this  subroutine  projects  (xj+>y[+>z4)  perpendicularly  on  to  the  plane 
1 2 3 to  obtain  (x'^y'^).  The  plane  quadrilateral  "defined"  by  1 2 3 ^ 
(assuming  it  is  defined  - see  below)  is  computed  and  returned.  The 
following  criteria  must  be  met  by  the  points  1,2,  3,4'  in  order  to 
consider  that  the  plane  area  is  well  defined.  (Assume  for  convenience 
that  point  1 lies  at  the  origin  of  a coordinate  system  of  the  plane 
and  that  4'  lies  on  the  x-  axis  - franhere  on  4'  is  referred  to  as  4): 

1)  points  2 and  3 must  lie  in  the  same  half  plane  defined  by 
the  x - axis 

2)  "diagonals"  1 3 and  2 4 must  intersect  in  the  same  half  plane 
as  points  2 and  3 lie 

3)  Z 214  must  be  greater  in  magnitude  than  Z il4  where  i is  the 
intersection  of  the  diagonals 

4)  length  (13)  must  be  greater  than  length  (li) 

If  these  conditions  are  not  met  the  value  of  area  returned  is  -1 
and  a "skewness"  code  corresponding  to  the  condition  1),  2),  3)  or  4) 
above  which  was  not  satisfied  is  returned.  Note  that  it  may  happen 
that  more  than  one  of  these  conditions  may  fail  to  be  satisfied.  Only 
the  first  condition  which  fails  to  be  met  is  returned.  In  addition 
to  the  area,  other  quantities  as  listed  below  are  returned. 

USAGE 

CALL  SUBROUTINE  AREA1 

All  input  and  output  is  through  labeled  common  area  /DEN/.  Additional 
useful  information  is  contained  in  /COORDl/.  (all  values  are  floating 
point  except  MESSAGE  which  is  Hollerith) 

COMMON  /DEN/  x(3,6),  AREA,  GAMMA,  RL1,  RL2,  COSREF,  P,  POLE,  MESSAGE 

X(3,l-4)  contains  the  Cartesian  coordinates  of  the  four  points 

(Xi,yi,Zi),  i = 1,4  (here  only  4 refers  to  point  4 

before  projection) 
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X(3>5“6)  define  a reference  line  5 6 (see  below) 

AREA  = quadrilateral  area  1 2 3 ^ or  -1  if  the  points  fail 
to  meet  conditions  1),  2),  3)> 

GAMMA  = angle  (<  -^-)  between  the  diagonals  1 3 and  2 4 

RL1  = length  (1  3) 

RL2  = length  (14) 

COSREF  = cosine  of  the  angle  between  diagonal  1 3 and  reference 
line  5 6.  (Note  that  5 6 does  not  necessarily  lie  in 
the  plane  1 2 3 *0 

P = distance  (positive  number)  which  original  point  4 

must  be  moved  to  lie  in  the  plane  123 

POLE  = + 1 depending  on  whether  the  points  2 3 are  above  (+) 

or  below  (-)  the  x - axis  defined  by  directed  line  1 4. 

Note  that  during  calculations,  2 and  3 may  be  shifted 
so  that  they  always  lie  in  the  positive  half  plane. 

MESSAGE  = a code  word  indicating  which  condition  was  first  not 
met.  For  example  if  condition  2)  is  the  first  one  a 
value  of  "SKEWl"  is  returned. 

COMMON/ COORD 1 / XPl,  YPl,  ZPl,  ••••,  XP4,  YP4,  ZP4,  XI,  YI 

This  common  storage  area  contains  the  coordinates  of  points  1,  2,  §,  4 
such  that  point  1 lies  at  the  origin  (i.e.  XPl,  YPl,  ZPl  should  all  be 
zero),  point  4 lies  on  the  positive  x axis  and  points  2 and  3 are  in 
the  positive  half  plane.  XI,  YI  is  the  point  of  intersection  of  the 
diagonals  1 3 , 2 4 in  this  reference  frame.  Note  that  ZPl,  ZP2,  ZP3 
and  ZP4  should  all  be  zero.  They  are  stored  here  merely  as  a check  on 
AREA1. 


PML  161 


APPENDIX  B 
Subroutine  DENl 


DESCRIPTION 

Subroutine  DENI  is  a mutation  of  DEN  such  that 

1)  The  flux  tube  quantities  are  not  averaged  e.g.  group  path 
length  is  not  averaged  over  the  4 rays  which  define  a given 
flux  tube  but  rather  is  associated  with  the  lower-left  (least 
azimuth,  least  elevation)  ray  of  the  quartet. 

2)  The  angle  between  the  wave  normal  and  earth's  magnetic  field 

is  stored  in  the  flux  tube  output.  This  value  is  stored  after 

1,  the  geometric  path  length  i.e.  it  is  the  last  item  in  each 

P as  described  in  FILE  DESCRIPTIONS  for  DEN. 
x 

3)  Landing  point  "PAST  90."  is  recognized  as  special  in  that  it 
always  occurs  immediately  after  "90  DEG."  or  after  another 
"PAST  90.".  Values  of  area  for  the  preceeding 

"90  DEG."  point  are  associated  with  the  current  "PAST  90*"  point. 

4)  A print  out  of  "ray  density"  is  not  given. 

USAGE 

Same  as  for  DEN  except  CALL  DENl (••••)• 


NAME: 
CATEGORY: 
TITLE : 
LANGUAGE : 
PROGRAMMER: 
DATE : 


DENI,  revision  I,  subroutine,  PML  l6l 
Special  purpose  (ray-trace  analysis) 

Ray  density  calculations  and  flux  tube  generation 
CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 
December  14,  1976 


DESCRIPTION  (of  the  revision) 

DENl  is  a modification  of  DEN  (DEN  remains  the  way  it  is  described 
in  revision  0)  which  does  not  compute  mean  quantities  for  flux  tubes. 

It  uses  the  ray  at  the  lower  left  corner  (lowest  elevation  angle,  left 
azimuth)  of  each  flux  tube  to  define  quantities  such  as  group  path 
length,  landing  point  deviation,  etc.  In  addition  DENI  treats  the 
landing  points  "PAST  90"  and  "APOGEE"  in  a special  way  (see  ALGORITHM). 

The  output  file  OUT  has  been  modified  to  include  the  following  quantities 
(see  FILE  DESCRIPTIONS): 

^ = angle  between  wave  normal  and  earth's  magnetic 

field  (degrees) 

r = radial  coordinate  (km)  at  apogee  (stored  for  "RCVR"  only) 

2L 

code  = polarity,  ratio  of  ratio  of  diagonals  and  Y,  the 

change  in  the  angle  between  the  diagonals  from  take- 
off to  landing  point.  (Hollerith) 

g^  = ground  range  (km)  from  transmitter  to  landing  point 
(or  landing  point  projected  onto  the  earth). 

The  print  out  of  ray  "density"  information  has  been  eliminated. 
ALGORITHM  (changes) 

Basically  DENI  operates  in  the  same  manner  as  DEN.  As  mentioned, 
mean  quantities  are  not  computed.  If  the  landing  point  "APOGEE"  is  encountered, 
the  value  of  r is  stored  and  put  into  the  appropriate  location  for 
association  with  the  ground  backscatter  point  "RCVR".  Thus  no  flux  tube 
quantities  are  computed  for  "APOGEE".  The  landing  point  "PAST  90*"  la 
treated  in  a special  manner  in  that  landing  point  area  is  not  computed. 
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However  group  path  length  and  other  quantities  are  computed  for  this 
point  (only  if  the  preceeding  90  DEG.  point  had  a flux  tube  associated 
with  it). 

FILE  DESCRIPTIONS  (changes) 

PRINT  is  used  only  to  print  information  on  rays  which  do 

not  form  a flux  tube 


OUT 

header  record 


remains  the  same 

flux  tube  records  (all  quantities  are  floating  point  unless 

specified  otherwise) 


f a e S P^, 


npts 


(P.  = HOP,  gr) 


- f 

- a 

- e 

- S 

- HOP 

- WHY 

- A 


= transmitter  frequency  (Mhz ) 

= initial  azimuth  (degree) 

= initial  elevation  (degree) 

= cross  sectional  area  at  1 km  (km  ) 

= hop  number  [integer] 

= landing  point  name  code  [Hollerith] 

2 

= landing  point  area  (km  ).  If  the  landing  point  is 
not"def ined"  for  one  of  the  reasons  mentioned  in 


DESCRIPTION,  A is  set  to  -1. 

- = angle  of  arrival  (rad)  (see  DESCRIPTION) 

- t = group  path  length  (km) 

- = mean  square  deviation  of  group  path  length  (see  note) 

-Aa  = azimuthal  deviation  (deg.)  (see  note) 

- o<.  ~ absorption  (db)  or  zero  if  absorption  is  not  calculated 

during  ray  tracing 

- 1 = geometric  path  length  (km)  or  zero  if  it  is  not 

calculated  during  ray  tracing 

- U/  = angle  of  arrival  between  wave  normal  and  earth's 

8 

magnetic  field  (degrees) 

- r = radial  coordinate  of  "apogee"  - stored  with  P.  with 

a . 

WHY  = "RCVR"  only.  For  other  landing  points  is  meaningless 


code  describing  the  landing  point  area  [Hollerith] 
This  code  is  in  the  form  + aaaa  bbbbb  where  + is  the 
area  polarity,  aaaa  is  the  ratio  of  ratio  of  area 
diagonals  and  bbbbb  (a  signed  quantity)  is  the  change 
if  from  take  off  to  landing  point  where  / is  the  angle 
between  the  diagonals. 

is  the  ground  range  (km)  between  the  transmitter  and 
landing  point  (projected  onto  the  earth). 


NAME: 
CATEGORY: 
TITLE : 
LANGUAGE : 
PROGRAMMER: 
DATE: 


FLUXPR(or  FLUXPRl),  revision  0,  subroutine,  PML  162 
Special  purpose  display 
Flux  tube  report  generator 
CDC  Extended  Fortran 

T.  B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 
September  1976 


DESCRIPTION 

Subroutine  FLUXPR  (or  FLUXPRl)  is  basically  a device  for  inputting 
data  to  subroutine  BACSCA1  (see  PML  163 ) and  for  outputting  information 
generated  by  this  subroutine.  The  two  versions  FLUXPR  and  FLUXPRl 
differ  essentially  in  the  amount  of  information  to  be  printed.  FLUXPR 
also  serves  as  a good  example  of  a subroutine  which  calls  the  general 
purpose  print  program  PRINT3 . 

USAGE 

SUBROUTINE  FLUXPR  (IN,  IPRNT) 
or  FLUXPRl 

Input  parameters 

IN  - file  name  (left  justified,  zero  fill)  of  the  file 
which  contains  data  for  use  by  BACSCAl . 

IPRNT  - file  name  (left  justified,  zero  fill)  of  the  file 
to  receive  the  printer  output. 

note : See  PML  I63  for  the  assumed  structure  of  the  input  file. 

The  output  file  contains  formatted  records  which  are 
suitable  for  printing. 

Labeled  common  input 

/SYSTEM/  DUM(20),  PW,  P0 

PW  is  the  transmitted  pulse  "width"  in  kilometers 
P0  is  the  total  transmitted  power.  Although  this  value 

is  passed  to  BACSCAl  it  is  not  used  in  any  caluclations . 

/QUANT1/  (20)  in  FLUXPR 

(30)  in  FLUXPRl 

is  the  storage  location  for  returning  information  from 
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BACSCA1  which  is  to  be  printed  through  FLUXPR.  These  quantities 

are  given  the  following  titles  (listed  below  in  the  order  in 

which  they  are  stored;  first  for  FLUXPR  then  for  FLUXPRl ) : 

FLUXPR 

"frequency  (mhz)" 

"azimuth  mean  compute  (degrees)" 

"elevation  mean  (degrees)" 

"flux  tube  x-section  (km.. 2)" 

"wave  length  gain  (db  km.. 2)" 

"transmit  antenna  gain  (db)" 

"receive  antenna  gain  (db)" 

"distance  (R-4)  gain  (db  km-4)" 

"radar  x-section  (db  km.. 2)" 

"pulse  spread  gain  (db)" 

"absorption  (2-way)  gain  (db)" 

"reflection  gain  multi-hop  (db)" 

"total  path  gain  (db)" 

"ray-focus  gain  (db)" 

"arrival  angle  (degrees)" 

"group  path  length  (mean)  (km)" 

"group  path  length  spread  (km)" 

"azimuthal  deviation  (degrees)" 

FLUXPRl 

"backscatter  point" 

"frequency  (mhz)" 

"azimuth  compute  (degrees)" 

"elevation  (degrees)" 

"flux  tube  x-section  (sterrad)" 

"total  path  gain  (db)"  (note  1) 

"wave  length  gain  (db  km.. 2)" 

"transmit  antenna  gain  (db)" 

"receive  antenna  gain  (db)" 

"distance  (r-4)  gain  (db  km-4)" 

"radar  x-section  (db  km2)" 
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"pulse  spread  gain  (db)" 

"absorption  (2-way)  gain  (db)" 

"reflection  gain  multi-hop  (db)" 

"total  path  gain  (db)"  (note  2) 

"ray  focus  gain  (db)" 

"group  path  length  (km)" 

"group  path  length  spread  (km)" 

"ground  range  (km)" 

"azimuthal  deviation  (degrees)" 

"apogee  or  height  (km)"  (note  3) 

"arrival  angle  (degrees)" 

"accurate  geomag.  colatitude  (degrees)" 

"polarity  ratio  of  diag.-rat.  del-gamma"  (note  4) 

note  1:  Although  it  is  not  indicated  explicitly  on  the  report, 
data  for  the  "past  90*"  landing  point  is  included  in 
the  report.  Most  entries  in  the  report  for  this  point 
are  empty  (indicated  by  R).  The  value  for  "total  path 
gain"  is  actually  the  incremental  loss  due  to  the  fact 
that  the  ray  path  and  earth's  field  are  slightly  off 
perpendicularity. 

note  2:  Total  path  gain  is  repeated  so  that  it  will  appear  on 
both  pages  of  the  flux  tube  report. 

note  3:  For  the  landing  point  "90  DEG.",  the  height  of  the  point 
is  given.  For  landing  point  "RCVR",  the  apogee  of  the 
ray  is  given. 

note  4:  The  "polarity"  of  the  landing  point  area  is  discussed  in 
PML  161.  The  "ratio  of  the  ratio  of  the  diagonals"  is 
a measure  of  the  change  in  shape  of  the  flux  tube.  The 
diagonals  referred  to  are  at  1 km  from  the  transmitter 
and  at  the  landing  point.  "Del-gamma"  is  the  change  in 
angle  between  the  cross  section  diagonals. 

Use  of  other  common  storage 

The  following  common  storage  areas  must  be  declared  with  the 
minimum  sizes  as  indicated  in  another  subroutine  (usually  the  main 
program)  loaded  prior  to  FLUXPR. 
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'FITAIN/ (35)  input  file  FIT  area 

/INBUF/(514)  input  file  buffer  area 

/IBUF/  (input  file  record  size) 

/FLUXPR/(1)  used  by  FLUXPRl  only  to  communicate  with 

BACSCA1 . 

STORAGE  REQUIRED 

The  storage  sizes  required  for  FLUXPR  and  FLUXPRl,  not  including 
common  storage  and  "system"  subroutines,  are  5^6g  (358^q)  an<^ 

63lg  (^°9l0)  respectively. 

ALGORITHM 

Both  FLUXPR  and  FLUXPRl  read  one  record  at  a time  from  IN  into 
/IBUF/,  pass  the  location  of  information  (pertaining  to  the  desired 
landing  point)  to  jAC  Al  and  then  call  PRINT2  or  PRINT3  (basically 
the  same  - see  PRINT3,  PML  I65)  to  print  out  information.  There  is 
a fundamental  difference  between  FLUXPR  and  FLUXPRl.  FLUXPR  is  designed 
to  work  with  any  file  of  the  type  "FLUXT"  as  described  in  PML  161 . It  will 
display  the  entire  contents  of  the  file.  FLUXPRl  on  the  other  hand  is 
designed  to  display  data  ("explicitly")  for  the  (1  hop)  "90  DEG."  and 
"RCVR”  landing  points  only.  When  this  FLUXT  file  is  processed  through 
FLUXPRl  and  BACSCA1,  the  landing  points  "APOGEE"  and  "PAST  90."  are 
treated  in  a special  way  by  BACSCA1  so  that  height  information  and 
backscatter  losses  due  to  slightly  off  perpendicularity  conditions 
can  be  added  to  the  appropriate  section  of  the  flux  tube  report. 

SPECIAL  CAUTION  AND  FEATURES 

FLUXPR  prints  out  data  on  the  number  of  quantities  which  have 
been  integrated.  (FLUXPRl  does  not.)  Both  FLUXPR  and  FLUXPRl 
print  out  all  the  data  for  a given  landing  point  before  going  to  the 
next  landing  point.  Special  note  should  be  made  of  the  requirement 
that  height  information  in  the  form  of  apogee  or  landing  point  height 
must  be  available  for  FLUXPRl. 
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TIMING 

Timing  depends  on  the  size  of  the  input  file.  Typically  only 
a few  seconds  are  required  to  process  even  large  files. 

ERROR  MESSAGES 

"FLUXPR,  NO  FLUX  TUBES  AVAILABLE"  if  the  input  file  IN  is  empty. 
SUBROUTINES 

Aside  from  the  file  error  processing  subroutines  EOFILE  and 
ERRORl,  FLUXPR  requires  BACSCA1  (PML  163)  and  PRINT2  or  PRINT3  (PML  165). 

ACCURACY 

Not  applicable 

COMMENTS  ON  USAGE 
None 

FILE  DESCRIPTIONS 

IN  - see  the  description  of  file  OUT  in  PML  l6l  revision  1. 

PRINT  - formatted  output  file  for  printing.  This  file  is  not 
rewound  on  entry  or  exit  to  FLUXPR. 

EXAMPLE  OF  USE 


PROGRAM  MAIN  (OUTPUT,  PRINT) 

common/fitain/fitain(35) 

COMMON/ INBUF/ INBUF( 5I k ) 

COMMON/ IBUF/ IBUF( 100 ) 

COMMON/SYSTEM/ ANTENNA( 10),  RECEIVE(lO),  TRANS(IO) 

DATA (TRANS =50.,  100000.) 

CALL  FLUXPR(5LFLUXT,5LPRINT) 

END 

This  program  assumes  that  the  appropriate  flux  tube  file  has 
been  created  and  attached  as  local  file  FLUXT.  The  print  file,  PRINT, 
should  be  rewound  and  copied  to  OUTPUT  after  MAIN  has  run. 


NAME: 

CATEGORY: 

TITLE: 

LANGUAGE : 

PROGRAMMER: 

DATE: 


BACSCA1,  revision  0,  subroutine,  PML  I63 
Special  purpose 

Backscattered  power  calculations 
CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 
October  1,  197& 


DESCRIPTION 

BACSCA1  computes  the  incremental  power  from  a single  flux  tube 
backscattered  at  a single  "landing  point"  which  is  capable  of  scattering 
power  back  to  the  transmit-receive  location.  Two  such  '{joints"  are 
recognized  by  BACSCA1 : "90  DEG."  and  "RCVR" . The  first  is  the  code 

name  for  that  point  along  a ray  (or  flux  tube)  where  the  earth's 
magnetic  field  and  wave  normal  (also  ray  direction)  are  perpendicular. 

The  second  is  the  code  name  for  the  point  where  a ray  intersects  and 
is  reflected  from  the  earth's  surface.  Both  of  these  points  are 
assumed  to  scatter  power  back  along  the  same  paths;  the  "90  DEG." 
point  because  of  field  aligned  electron  density  enhancements  and  the 
"RCVR"  point  because  of  irregularities  in  the  earth's  surface  which  is 
a partially  reflecting  surface. 

There  are  several  factors  in  the  expression  for  backscatter 
power  (see  ALGORITHM).  These  factors  are  computed  separately  and  also 
returned  by  BACSCA1  so  they  can  be  used  to  analyze  flux  tube  backscatter 
power  losses.  At  the  same  time  a few  other  quantities  (see  below) 
are  returned  for  use  in  a "flux  tube  report"  - see  FLUXPR,  PML  162. 

USAGE 

FUNCTION  BACSCA1 ( IS , PO , PW , Rl , THETA1 , PHIl ) 
input  parameters 

All  input  parameters  are  floating  point  except  IS  which  is 
integer.  Units,  if  they  matter,  are  shown  in  parentheses.  Refer 
to  the  notes  indicated  by  asterisks  for  further  details  if  necessary. 

IS  pointer  to  the  location  in  the  flux  ttbe  record  at  which  *1 

landing  point  data  should  be  obtained 
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transmitter  power 
transmitted  pulse  "width"  (km) 

„ coordinates  of  the  transmitter  in  the  compute  coordinate 
PHI1)  system  (knh  rad.,  rad.). 

In  the  current  version  of  BACSCAl,  these  quantities  are  not  used 
for  anything  and  need  not  be  given  values  . 

Notes 

*1  Refer  to  PML  l6l  for  the  structure  of  the  flux  tube  file  as 
output  by  subroutine  DEN.  Each  record  (except  for  header  and 
trailer  records)  is  of  the  form: 

f,a,e,S,P1,P2,-'-Pn 

where  f,a,e  is  the  flux  tube  label  giving  frequency  and  ray  mean 
starting  direction  (azimuth  and  elevation),  S is  the  initial  flux 
tube  solid  angle,  and  each  P^  consists  of  landing  point  data  starting 
with  the  landing  point  identifier  which  consists  of  hop  number,  HOP, 
and  code  name,  WHY.  The  value  of  IS  points  to  the  location  of  HOP 
for  a given  landing  point. 

output 

There  are  two  "outputs"  of  BACSCAl ; the  first  is  the  total 
incremental  backscatter  power  given  by  BACSCAl  (a  function).  The 
second  output  is  stored  in  labeled  common  area  /QUANTl/  as  follows: 

(all  values  are  floating  point,  units  - if  any,  are  shown  in  parentheses, 
notes  given  explanations  are  indicated  by  asterisks.  Each  quantity 
is  given  a sequence  number  according  to  its  relative  location  in 
/QUANTl/. 

1)  Transmitter  frequency  (Mhz ) 

2)  Initial  flux  tube  azimuth  (degrees-relative  to  the  compute 
coordinate  system  where  0 degrees  is  north  and  positive 
azimuth  is  clockwise) 

3)  Initial  flux  tube  elevation  (degrees-horizon  is  zero, positive 
elevation  above  horizon) 

4)  Initial  flux  tube  solid  angle  (steradians) 

2 

5)  wave  letfjth  gain  (db  km  ) *1 


PO 

PW 

(Rl, 


2 
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6) 

transmit  antenna  gain 

(db) 

*2 

7) 

receive  antenna  gain 

(db) 

*2 

8) 

distance  (r  ^)  gain 

(db  km  ^ 

) *3 

9) 

total  radar  cross  section  (db 

km2) 

10) 

pulse  spread  gain 

(db) 

*5 

11) 

2-way  absorption  gain 

(db) 

*6 

12)  multi-hop  ground  reflection  gain  (db)  *7 

13)  total  gain  (sum  of  preceeding  gains)  (db) 

14)  ray-focus  gain  (db)  *8 

15)  arrival  angle  at  landing  point  (degrees)  *9 

16)  group  path  length  (km) 

17)  group  path  spread  (km) 

( ~(T^  see  PML  161) 

18)  azimuthal  deviation  (degrees  - positive  deviation  clockwise) 

In  addition,  two  dummy  locations,  19)  and  20),  are  declared  for 
future  use.  Subroutines  loaded  prior  to  BACSCA1  must  declare 
/QUANT1/  to  be  at  least  20,  if  they  declare  it  at  all. 

notes 

*1  see  in  ALGORITHM.  If  the  frequency  is  less  than  or  equal 

to  0.,  BACSCA1  returns  with  no  computations. 

*2  see  Gg,  G^  in  ALGORITHM.  These  may  be  set  to  zero  if  antenna 
patterns  are  not  available. 

*3  see  in  ALGORITHM.  Also  note  that  if  the  flux  tube  landing 

point  area  is  not  defined  (signified  by  A = -1  - see  DEN),  a value 
of  G^  = 0 is  returned  and  BACSCAT1  returns  to  the  calling 
subroutine . 

*4  see  G^  in  ALGORITHM  and  Appendix  A 

*5  see  Gg  in  ALGORITHM 

*6  see  G^  in  ALGORITHM 

*7  see  Gq  in  ALGORITHM 

*8  see  the  discussion  on  ray  focus  gain  in  the  ALGORITHM.  This 
quantity  is  defined  only  if  the  geometric  path  length  is 
computed  in  the  ray  trace  program. 
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*9  The  absolute  value  of  f as  given  by  DEN  is  used  by  converting 
to  degrees 

use  of  other  common  storage 

Label  common  /IBUF/  is  used  as  input  to  BACSCA1 . It  contains 
the  current  flux  tube  record  for  which  IS  is  the  pointer. 

STORAGE  REQUIRED 

The  amount  of  storage  required  for  BACSCA1  including  the  current 
versions  of  SIGGND  and  SIG90,  but  not  including  antenna pattern  subroutines 
if  required,  is  323g  (21110).  Additional  space  is  required  for 

subroutine  AURLAT  which  is  required  by  SIG90  (see  PML  150  ).  This 
figure  does  not  include  thatrequired  for  common  storage  areas  /QUANTl/ 
and/ IBUF/ . 


ALGORITHM 

The  algorithm  for  computing  the  incremental  backscattered  power 
follows  from  the  "radar  equation": 


' I 
L 


P = 


P G A O' 
t t r 

(btR2)2 


(see  ref.  1) 


where : 


r 

cr 


= received  power 
= transmitted  power 
= transmit  antenna  gain 

= effective  aperature  of  the  receiving  antenna 
= total  radar  cross  section  (units  of  area) 

= "distance"  to  the  target 


The  effective  aperature  of  the  receiving  antenna  is  given  by 
A = where  G is  the  receiving  antenna  gain  (relative  to 

r - , "_rr  r 

b 7T 

isotropic  antenna)  and  X is  the  free  space  wavelength  of  the  radio  wave, 

The  radar  equation  implicitly  assumes  that  the 'Vadar  rays"  travel 
in  straight  lines  from  the  transmitter,  thus  the  power  density  at  the 


P G 

target  is  given  by  t t 


where  4Tr2  is  the  area  of  a sphere  of  radius  R. 


hTRC 
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Here  R is  not  known  but  can  be  estimated  if  the  flux  tube  cross 

section  area  at  the  landing  point  is  known.  The  relationship  which 

follows  from  flux  conservation  arguments  is  that  R = tfh  /s'  where 

P 

Ap  is  the  projected  area  and  S is  the  initial  solid  angle  size  of 
the  flux  tube.  Another  quantity  of  interest  is  a measure  of  ray 
focusing  or  de focusing.  If  focusing  occurs  there  is  an  apparent 
gain  in  received  signal  strength  over  that  which  would  be  observed  if 
the  rays  traveled  in  straight  lines.  A good  measure  of  this  gain  is 
40  l°g^Q  (R^R)  where  R^  is  the  geometric  path  length.  (Tte  factor 
40  occurs  because  distance  R appears  to  the  inverse  4t*1  power  in  the 
power  equation.)  R^  can  be  computed  in  the  ray  trace  program  but  often 
is  not.  If  so  this  "ray  density  gain"  is  returned  as  zero,  though  it  is 
actually  unknown. 

In  addition  to  the  factors  given  by  the  "pure"  radar  equation,  the 
effects  of  absorption,  pulse  spreading  (see  ref.  2),  and  multi-hop 
ground  reflection  can  be  included  as  multiplicative  factors.  In  BACSCA1 
the  total  path  loss  is  computed  as  a sum  of  components  as  follows: 

GT  = Gl+  G2+  °3+  G4+  G5+  G6+  G7+  G8 

where : 

G^  = "wave  length  gain"  lOlog^  (>.2/4  7f)  (db  km^) 

where  X = .3/f(Mhz)  and  f is  given  as  part  of  the  flux 
tube  label. 

G 2 = G = transn,lt  antenna  gain  (db).  Antenna  gain  is  computed 
in  general  by  various  function  subroutines  which  are 
attached  as  necessary.  In  general  Gt  is  a function  of  flux 
tube  initial  direction. 


G^  = receive  antenna  gain  (dh).  See  above  remarks  for  Gt . 


On  occasion  transmit  and  receive  gains  are  lumped  into  one 
gain  figure  with  the  other  set  to  zero. 


-4, 


G,  = distance  gain  (db-kra  ) 


= 10  log  (- 


where 


2 A/sin  ! 
R = S 


S = initial  flux 


’10  ' 47Tr2 

tube  cross  section  = A a 4e  cos  e (steradian)  nominally  if 
the  flux  tube  cross  section  is  rectangular.  S is  actually  computed 


in  DEN  for  any  flux  tube  geometry. 


JLJii 


mputed 

. j 


H 

H 
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= total  radar  cross  section  "gain"  (db-km  ) 

10  iog10  <T°  • A 

where  A = landing  point  area  computed  by  DEN  and  <r°  is  the 
cross  section  per  unit  area  (no  dimensions).  The  value  of 
O’0  is  returned  by  one  of  two  function  subroutines  called 
SIG90  and  SIGGND  for  field  aligned  and  earth  backscatter 
respectively.  These  subroutines  are  discussed  briefly  in 
Appendix  A. 

= pulse  spread  gain  (db) 

= 10  log10 

where  pw  is  the  pulse  "width"  in  km  and  c r is  the  flux 
tube  group  path  length  "standard  deviation".  This  expression 
is  essentially  that  used  in  ref.  2 except  their  expression 
for  " <T"t"  is  somewhat  different.  If  pw/2  > 1 or  if 

^t  = °'  g6  " °* 

= absorption  (db) 

This  is  obtained  directly  from  the  ray  trace  program  if  it 
has  been  calculated.  However  total  path  absorption  is 
twice  the  value  given  and  is  multiplied  by  -1  since  the  given 
absorption  is  positive.  If  absorption  is  not  calculated  G^ 
is  set  to  zero. 

= earth  reflection  loss  for  multi  hop  (db) 

= 1 . (2(H0P-1 ) ) i.e.  a loss  of  1 db  in  each  direction  is  assumed. 


The  value  returned  in  BACSCA1  is  given  by  P = P^IO 


GT/10 


The  distance  gain  factor,  G^  is  set  to  zero  if  a flux  tube  landing 
point  is  not  defined  (signified  by  a value  of  -1  when  computed  in  DEN) 
so  G,  should  be  checked  in  total  power  calculations. 


SPECIAL  CAUTION  AND  FEATURES 

BACSCA1  is  dependant  on  the  data  record  structure  of  the  flux 
tube  as  output  by  DEN.  Any  change  in  this  structure  should  be  reflected 
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in  an  appropriate  change  in  BACSCA1 . 

Special  note  should  be  taken  of  the  convention  that  is  set 
to  zero  if  and  only  if  backscatter  power  can  not  be  calculated  at  a 
particular  landing  point. 

TIMING 

Unknown.  The  computation  in  BACSCA1  are  relatively  short  and 
simple;  little  CPU  time  should  be  required. 

ERROR  MESSAGES 
None 

SUBROUTINES 

BACSCA1  requires  k function  subroutines  called  GT,  GR,  SIG90 
and  SIGGND  to  provide  antenna  gains  (db)  and  radar  cross  section  per 
unit  area.  These  functions  will  vary  according  to  various  assumptions 
about  the  radar  system  and  backscatter  models.  Listed  below  are  the 
functions  and  their  parameters  (arguments).  SIG90  and  SIGGND  (as  they 
are  currently  structured)  are  briefly  described  in  Appendix  A. 

GT(F,AZ,EL) 

gr(f,az,el) 

SIG90(R, THETA, PHI) 

SIGGND(PSI) 

where : 

F = transmit  frequency  (Mhz) 

AZ=  initial  azimuthal  angle  (radians)  w.r.t.  compute  coord. 

system  (0°  = north,  clockwise  positive) 

EL=  initial  elevation  angle  (radians) 

(R, THETA, PHI )=landing  point  coords,  (compute  system)  (km,  radians,  radians) 

PSI=  absolute  value  of  the  angle  of  arrival  w.r.t.  horizontal 

(radians ) 

ACCURACY 

Not  applicable 
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COMMENTS  ON  USAGE 
None 

FILE  DESCRIPTIONS 

A file  is  used  only  implicitly  by  BACSCAl  in  the  fact  that 
information  from  a flux  tube  file,  typically  produced  by  DEN,  is  obtained 
through  common  area  /IBUF/.  A complete  flux  tube  record  is  usually 
stored  at  this  location. 

EXAMPLE  OF  USE 

FLUXPR(see  PML  162)  shows  a typical  way  BACSCAl  is  used. 

COMMON / QUANT 1 / Q ( 20 ) 

• 

160  CALL  GET(FITAIN,BUF) 

IF  (IEOF(X).NE  0)  GOTO  150 
IF  (BUF(l).EQ.  9990  GOTO  150 

F = BACSCAl ( JSTART, PO, PW , R1 ,THETAl , PHIl ) 

IF  (Q(8)  .EQ.O)  GOTO  160 
CALL  PRINT2( * * • 

GOTO  160 
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APPENDIX  A 


This  appendix  provides  a brief  description  of  the  algorithms 
used  for  computing  radar  backscatter  cross  sections  (per  unit  area)  at 
field  aligned  irregularities  and  at  the  ground. 

I.  Backscatter  cross  section  due  to  field  aligned  electron  density 
irregularities  at  the  point  where  the  ray  direction  is  perpendicular 
to  the  earth's  magnetic  field,  (commonly  known  as  auroral  backscatter) 

It  is  extremely  difficult  to  obtain  a reliable  figure  for  this 

cross  section,  first  because  it  apparently  moves  over  a wide  range 

and  second  because  it  is  difficult  if  not  impossible  to  know  the  geometry 

of  the  enhanced  region  with  respect  to  the  illuminating  radar.  Sub- 

o 

routine  SIG90  uses  a "mean  value"  of  3*5  f°r  whi-c'1  i-s  independant 
of  frequency,  height,  etc.  However  this  value  is  returned  only  if  the 
90  degree  landing  point  falls  within  a specified  "accurate  geomagnetic" 
band.  Furthermore  there  is  an  exponential  decrease  from  3.5  at  the 
edges  of  this  band.  The  value  of  3.5  is  obtained  by  converting  some 
radar  cross  sections  per  unit  volume  in  ref.  3 t0  non-dimensional  radar 
cross  section.  Referring  to  Table  b.2  on  page  108  of  this  reference, 
the  average  cross  section  per  unit  volume  (m  ) is  .0035  for  the 
"DF  mode"  auroral  backscatter.  The  DF  mode  is  the  direct  backscatter 
from  field  aligned  irregularities  in  the  F region.  No  data  is  available 
for  similar  backscatter  from  E region  irregularities  but  there  is  no 
height  dependancy  in  SIG90.  Using  an  assumed  range  resolution  of  1 km, 
the  resulting  non-dimensional  backscatter  cross  section  value  of  3.5 
is  obtained. 

As  mentioned  above,  this  value  of  3*5  is  returned  only  if  the 

latitude  of  the  backscatter  point  ( % - 0)  falls  within  a particular 

x. 

accurate  geomagnetic  band.  This  latitude  is  converted  to  accurate 

geomagnetic  latitude  0 using  subroutine  AURLAT  (see  PML  I50  ) • If 

8 

65  < 0 < 72,  the  value  of  3.5  is  returned.  Outside  of  this  region  an 

8 

exponential  fall  off  is  used 

<r°Q  = 3.5  e //edge  where  edge  is  either  65  or  72  and 
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/edge-9/  < 10.  Beyond  this  SIG90  is  given  the  value  10  J meaning 
essentially  no  backscatter. 


II.  Backscatter  cross  section  due  to  backscatter  from  the  earth's 


Subroutine  SIGGND  combines  some  results  from  references  4 and 
5 to  obtain  a frequency  independant  non-dimensional  radar  cross  section 
per  unit  area.  This  cross  section®"0  depends  only  upon  the  elevation 

8 y 

angle  of  arrival  . It  has  a Gaussian  fall  off  from  large  values  of  y 

(see  ref.  5,  page  465)  then  cr*  increases  to  a "knee"  followed  by  a 

g 

rapid  fall  off  at  very  small  values  of  jy  ( see  ref.  4,  page  147).  The 
result  is  the  following  expression: 
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DESCRIPTION 

The  primary  purpose  of  PLTDEV  is  to  provide  equi-take  off  azimuth 
curves  of  group  path  length  vs.  azimuth  deviation  for  various  specified 
landing  points.  More  specifically,  given  a "bundle"  of  rays  (from 
CRRSET;  PML  157,  for  example)  which  have  been  generated  or  sorted  by 
frequency,  then  initial-azimuth  and  then  initial-elevation,  PLTDEV 
produces  these  curves  on  separate  coordinate  frames  for  each  frequency. 
For  each  initial  azimuth,  the  azimuth  at  the  given  landing  point  is 
computed  for  all  elevation  angles.  These  azimuths  and  corresponding 
group  path  lengths  (as  computed  during  ray  tracing)  are  plotted  in 
ascending  elevation  angle  order.  After  all  "equi-az"  curves  have  been 
plotted,  "equi-el"  (elevation  angle)  curves  are  plotted  in  dotted  line 
i.e.  points  with  the  same  elevation  angle  are  connected  in  ascending 
initial-azimuth  order. 

Another  option  of  PLTDEV  is  to  plot  onl>  a group  path  length 
curve  for  each  initial-azimuth,  i.e.  group  path  length  is  plotted  in 
order  of  ascending  initial  elevation  angle.  In  order  to  spread  the 
points  (since  they  otherwise  fall  on  a line  through  the  initial  azimuth) 
each  point  is  given  an  incremental  x-value . 

In  addition  to  plots,  PLTDEV  produces  a print-out  of  group  path 
length,  azimuthal  deviation  and  accurate  geomagnetic  latitude  of  the 
landing  point . 

There  are  various  options  for  PLTDEV  which  are  described  in  the 
next  section. 

T 


1 


- 319 


PML  164 


USAGE 

SUBROUTINE  PLTDEV ( IN, NREC, MODE , ISUP ) 


Input  parameters 

Parameter  type  is  shown  in  parentheses;  refer  to  notes 
indicated  by  asterisks  for  details.  There  are  no  default  values. 


IN 

NREC 


MODE 

ISUP 


input  file  name  (left  just  if ied-zero  fill) 
number  of  records  to  be  plotted.  NREC 
should  be  less  than  or  equal  to  the  number 
of  records  in  the  input  file, 
an  integer  between  0 and  3 inclusive 
which  controls  the  mode  of  operation, 
if  ISUP  = 0,  a separate  frame  is  used  for 
each  landing  point.  Otherwise  all  landing  point 
curves  appear  in  the  same  frame. 


*1 

( integer ) 


(integer)  *2 
( integer ) 


notes 

*1  The  input  file  is  the  "bundle  of  rays"  produced  by  CRRSET  and 
made  random  access  through  BIBSUB2  for  example.  See  FILE 
DESCRIPTION  for  more  details  on  this  file. 

*2  MODE  = 0 means  that  information  in  the  first  NREC  records  of 
IN  are  plotted  (and  printed)  using  coordinate  frame  scales 
determined  by  PLTDEV  (see  ALGORITHM)  i.e.  there  is  no  user 
control  over  whet  gets  plotted. 


MODE  = 2 means  that  no  plotting  is  done;  only  a print-out  is 
provided  of  information  which  would  be  plotted  if  MODE  were 
set  equal  to  zero.  As  noted  previously,  landing  point 
accurate  geomagnetic  latitude  is  also  printed. 

MODE  = 3 means  that  group  path  length  (along  initial  azimuth 
lines)  are  plotted.  (Modes  0-2  refer  to  azimuth  deviation.  ) 
Note,  however,  that  the  print  out  still  includes  azimuth 
deviation  information  when  MODE  = 3* 


Labeled  common  input 

If  MODE  = 1,  the  user  must  provide  data  for  selecting  what 
information  is  to  be  plotted  and  how  it  is  to  be  plotted.  This  data 


2 
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is  obtained  from  labeled  common  area  PDEV  as  follows  (numbers 
in  parentheses  refer  to  locations  in  PDEV;  all  values  are 
floating  point  unless  indicated  otherwise) 

(10)  frequency  (mHz)  of  the  rays  to  be  plotted 

(11)  name  of  the  landing  point  (Hollerith).  This  name  should 
be  in  the  form  nxxxxxxxxx  where  n is  the  hop  number  (1-4) 
and  xxx...  is  the  landing  point  code  name.  For  example 
"1RCVR"  is  the  name  for  the  first  hop  ground  landing  point. 

(12)  frame  minimum  x-value  (the  x-axis  is  azimuth) 

(13)  frame  A x (l  inch  on  the  plot  is  equivalent  to  a Ax  range 
in  x values  . 

(14)  frame  maximum  x-value 

(15)  frame  minimum  y-value 

(16)  frame  Ay 

(17)  frame  maximum  y-value.  (Since  plots  are  limited  in  the 

y-direction,  if  y-axis  length  as  computed  from  (ymav~ym1-n)/dy 
is  greater  than  Q,  it  is  set  equal  to  8 and  some  points 

may  not  be  plotted. 


(18) 

az  . 
min 

- lower 

bound 

of 

initial 

azimuths 

(19) 

az 

max 

- upper 

bound 

of 

initial 

azimuths 

(20) 

el  . 
min 

- lower 

bound 

of 

initial 

elevations 

(21) 

el 

max 

- upper 

bound 

of 

initial 

elevations 

The  above  sequence  of  values  can  be  repeated  as  often  as 
desired.  A value  of  frequency  (item  (10)  or  (22)  ...  (10  + (n-l)12)) 
of  zero  terminates  the  subroutine. 

PLTDEV  produces  plots  for  all  frequency  "matches"  with  the 
input  file  up  to  NREC . When  NREC  records  have  been  plotted  (or  input) 
the  file  is  rewound  and  the  next  set  of  parameters  from  PDEV  are  read  in. 

Use  of  other  common  storage 

The  following  common  storage  areas  must  be  declared  with  the 
sizes  as  indicated  in  another  subroutine  loaded  prior  to  PLTDEV: 

/PDEV/  (minimum  of  7)  If  mode  = 1 then  the  size  of  /PDEV/ 
is  controlled  by  the  location  of  the  last  frequency  value 
which  must  be  0. 
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/DATA/  ((3  • NPTS  + 2)  • NREC)  where  NPTS  is  the  no.  of 
landing  points 

/F1TAIN/  (35)  input  file  FIT  area 
/ INBUF/  (514)  input  file  buffer  area 
/ 1BUF/  (input  file  record  size) 

In  addition,  the  following  common  areas  are  used  by  PDEV 
to  communicate  with  other  subroutines: 

/SUB/  (2) 

/CURVE/  (7)  communicates  with  CURVE  (PML  166) 

/XARRAY/  (100) 

/YARRAY/  (100) 

If  plotting  is  to  be  done  (mode  4-  2)  then  calls  to  PLTID3 
and  ENDPLT  must  be  made  sometime  before  and  after  PLTDEV  respectively. 

STORAGE  REQUIRED 

The  amount  of  storage  required  by  PLTDEV  and  its  special  subroutines 
(see  SUBROUTINES),  but  not  including  common  storage  (except  /XARRAY/ 
and  /YARRAY/),  is  336lg  (177710)- 

ALGORITHM 

The  word  addressable  input  file  is  opened  and  the  first  record  read. 
This  record  provides  some  labeling  information,  transmitter  location  for 
azimuth  deviation  computations  and  information  on  the  form  of  the  ”ray" 
records  . 

In  the  following  description  of  the  algorithm  it  is  assumed  the 
mode  = 0;  modifications  required  for  the  other  modes  are  summarized 
later . 

The  first  frequency  is  found  from  the  first  "ray"  record.  As  long 
as  the  frequency  remains  the  same,  records  are  read  and  data  is  obtained 
and/or  computed  and  stored  in  common  area  /DATA/ . The  information  stored 
in  /DATA/  is  later  used  to  produce  print  outs  and  plots.  This  information 
is  stored  as  follows: 
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a^  d^,  s^,  tg,  d^,  Sg,  " * * ^n*  ^n*  Sn*  a2*  e2J  ^1*^1*  * * * 


where  a^,e^  are  the  initial-azimuth  and  elevation  angles  of  the 
first  "ray"  record;  the  first  sequence  of  t^,d^,s^  are  the  group 
path  lengths,  landing  point  azimuths  and  acc.-geom.  latitudes 
associated  with  the  NPT  landing  points  on  the  first  ray  record. 

Similarly  ag>e2>  etc*  are  associ-ated  with  the  second  ray  record. 
If  a ray  does  not  actually  land  at  one  of  the  specified  landing 
points,  as  indicated  by  r = 0 (see  CRRSET,  PML  157)>  a value  of 
37777  77777  77777  77777B  is  given  to  the  corresponding  ti*di^si* 
This  has  the  effect  on  print  out  of  having  the  letter  "R" 
printed.  It  is  used  in  plots  to  indicate  a break  in  the  curve  of 
group  path  length  vs.  azimuth  which  may  be  bridged  by  a dotted 
line  if  it  is  a true break. 


When  the  next  frequency  is  found  (or  NREC  records  have  been  read), 

PLTDEV  leaves  the  /DATA/  - fill  loop  and  prints  out  the  contents  of 

/DATA/.  Next  the  curve  plotting  loop  is  entered.  X and  y axis  scales, 

etc.  are  determined.  The  y-axis  origin  and  scale  can  be  obtained  from 

gpl  , and  gpl  values  which  are  determined  as  data  is  transferred  from 
min  max 

the  input  file  to  /DATA/.  However,  it  has  been  found  expedient  to  over- 
ride the  logic  which  calculates  y and  A y by  setting  y = 500. 

and  Ay  = 500.  Similarly  x . and  Ax  are  found  using  max.  and  min. 

mm 

values  of  landing  point  azimuths.  If  ISUP  4 0 (indicating  superimpose 
landing  point  curves),  the  scaling  is  determined  by  the  max  and  min  over 
all  landing  points  . 


New  sets  of  axes  are  drawn  for  each  landing  point  if  ISUB  = 0, 
otherwise  only  one  set  of  axes  is  drawn  for  each  frequency. 

For  each  landing  point,  i,  the  t^,d^  information  in  /DATA/  is 
plotted  in  increasing  elevation  angle  order  as  one  curve  as  long  as 
the  initial  azimuth  (a^,a^,...)  remains  the  same.  If  a "break"  occurs 
as  indicated  by  t^  = 377777* •••>  the  curve  sections (if  there  are  more 
than  1)  are  joined  by  dotted  straight  lines. 

A curve  section  is  drawn  by  subroutine  CURVE  and  initial -azimuth 
labels  are  plotted  using  subroutine  LBL  (part  of  the  PLTDEV  "family") 


-« 
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if  the  curve  section  is  a first  or  last  one.  As  each  curve  (as 
labeled  by  initial-azimuth)  is  completed,  the  location  of  the  a^,a^,  ... 
are  stored  in  array  NEWAZ. 

After  all  curves  have  been  drawn,  a call  is  made  to  PLTEL  (also 
part  of  the  PLTDEV  "family")  to  draw  dashed  curves  through  equi-elevation 
points  (gpl  and  az-dev.  are  functions  of  initial  elevation  angle  for 
fixed  initial  azimuths)  in  increasing  initial-azimuth  order.  If  there 
is  a break  in  elevation  angle,  the  break  is  not  connected  as  azimuth 
breaks  are. 

The  above  procedures  are  repeated  for  the  next  new  frequency 
after  the  plot  origin  is  moved  by  XLEN  + 3 inches. 

If  MODE  = 1,  the  algorithm  is  changed  as  follows: 

(1)  plot  scales,  etc.  are  determined  from  information  in  /PDEV/ 

(2)  t,d,s  data  is  put  into  /DATA/  only  if  there  is  a frequency 
match  (with  /PDEV/(10)  for  example) 

(3)  curves  are  plotted  for  the  landing  point  specified  by  the 
current  value  of  landing  point  name  (PDEV(ll)  for  example) 

(4)  points  are  plotted  only  if  initial  azimuth  and  elevation 

are  within  the  ranges  specified  by  the  current  /PDEV/  values, 
(for  example  by  /PDEV/ (18), ( 19), (20), (21 ) ) . 

If  MODE  = 2,  the  algorithm  is  the  same  as  for  MODE  = 0,  except 
no  plotting  is  done. 

If  MODE  = 3,  the  algorithm  is  the  same  as  for  MODE  = 0 except 
that  for  plots  t instead  of  plotting  t^jd^  (group  path  length,  landing 
point  azimuth),  the  point  t^,  a + A is  plotted  where  a is  the  current 
initial  azimuth  value  and  A is  a sequenced  increment  to  prevent  points 
from  falling  on  the  same  line. 

SPECIAL  CAUTION  AND  FEATURES 

PLTDEV  is  fairly  well  self  protected  but  the  following  points 
should  be  observed: 

(1)  The  input  file  must  be  word-addressable  and  structured  as 
shown  in  FILE  DESCRIPTION. 
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(2)  The  common  storage  areas  /PDEV/,  /FITAIN/,  /IBUF/,  / INBUF/ 
and  /DATA/  must  be  declared  as  explained  previously. 
Particular  care  must  be  taken  to  see  that  /DATA/  is  at 
least  as  large  as  (3  • NPTS  + 2)  • NREC. 

(3)  If  MODE  = 1 is  chosen  /PDEV/  must  be  filled  in  as  explained 
under  USAGE.  Be  sure  to  terminate  the  data  in  /PDEV/  with  a 
zero  at  a "frequency”  location. 

(4)  If  NREC  is  very  large  (and  MODE  4 1 ) it  is  best  to  run 
PLTDEV  only  on  weekends  with  a note  to  the  operator  (use  a 
control  card  "PAUSE!1  for  example)  that  a long  plot  is  to 
be  produced. 

TIMING 

Timing  depends  on  several  factors.  As  a rule,  even  long  plots 
should  take  less  than  100  CPU  seconds. 

ERROR  MESSAGES 

None 


SUBROUTINES 

Subroutines  marked  with  * are  considered  to  be  part  of  PLTDEV; 
others  are  obtained  typically  from  User  Library,  BARLIB. 

AURLAT  (computes  acc.  geom.  latitude) 

CURVE  (draws  curves  w/solid  or  dashed  lines) 

DEC*  (decodes  landing  point  name  in  /PDEV/) 

ERRORl  (error  subroutine  for  input  file) 

IEOF  (error  function  for  input  file) 

LBL*  (labels  curve  end-points) 

PLTEL*  (draws  equi-elevation  curves) 
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COMMENTS  ON  USAGE 

For  an  overall  look  at  "deviation  data"  PLTDEV  should  be  called 
with  MODE  = 0.  For  later  and  perhaps  less  confused  plots,  MODE  = 1 
should  be  used  on  the  same  input  file. 

FILE  DESCRIPTIONS 

PLTDEV  uses  two  files.  The  printed  output  file  is  created  using 
Fortran  formatted  write  statements.  The  file  name  is  PRINT  and  should 
be  so  declared  in  the  main  program  statement. 

The  input  file  (called  IN)  is  a word-addressable  file  with  fixed 
length  records.  This  file  is  typically  created  by  CRRSET  (PML,  157) 
in  sequential  form  followed  by  a conversion  to  word-addressable  form 
through  B1BSUB2. 

This  file  consists  of  1 header  record  and  the  rest  ray  records. 
Each  record,  including  the  header  record  has  the  same  length.  The 
structure  of  each  record  is: 


header  record 
(npts  £ 0) 

-999’,  -999’,  -999’,  npts,  m,  nint,  ID(4),  r,  e,  0, 

(HOP, WHY,  i = 1,  npts),  (title  (i),  i = 1,  nint) 


where : 


- npts 

- m 

- nint 

- ID (4) 

- r,©,0 

- HOP, WHY 

- TITLE 


= number  of  ray  elements  [integer] 

= total  record  length  [integer] 

= number  of  "integrated  quantities"  [integer] 

= last  four  words  for  ID(10)  in  header  record  of 

RAYSET  [Hollerith]  from  ray  tracing 

= transmitter  dipolar  coordinates  (radians)  [floating 

point ] 

= element  hop  and  name  [integer,  Hollerith] 

= titles  of  "integrated  quantities"  [Hollerith] 


ray  record 
or 


npts 


(npts  h 0) 
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f,a,e,P1P2,  PlMt  where  Plast  corresponds  to  the 

last  element  of  a set  of  ray 
elements  In  RAYSET 

and 

P.  = HOP,WHY,rr,r0,r{2S>kr,ke,k(Zj,t,  j^g,q(l),  --q(nint) 
where : 


f,a,e 


- HOP, WHY 

• (wV  = 

• (kr'W  = 


q ( 1 )-q(nint ) = 


initial  ray  frequency,  azimuth,  elevation 
(MHz,  radians)  [floating  point] 
note : azimuth  is  relative  to  compute  coordinates 
Azimuth  in  RAYSET  is  relative  to  geographic 
coordinates . 

hop  number,  name  [integer,  Hollerith] 

element  coordinates  (km,  radians)  [floating  point] 

wave  normal  direction  of  element  [floating  point] 

group  path  length  (km)  [floating  point] 
angle  between  wave  normal  and  earth's  magnetic 
field  (degrees)  [floating  point] 
integrated  quantities  [floating  point] 


EXAMPLE  OF  USE 

PROGRAM  MAIN (OUTPUT, PRINT) 

COMMON/ FITAIN/ FITAIN( 35 ) 

COMMON/ INBUF/ INBUF( 514) 

COMMON/ IBUF/ IBUF( 100 ) 

COMMON/DATA/ DATA( 5000 ) 

C0MM0N/PDEV/PDEV ( 20 ) 

DIMENSION  PR0GID(3) 

DATA  ( P ROG ID =" BARRETT",  "2628",  "AZDEV" ) 
CALL  PLTID3(PR0GID,200.,11.,1) 

CALL  PLTDEV(5LRAYSR,456,2,1) 

CALL  ENDPLT 
END 


File  RAYSR  is  assumed  to  have  been  created  by  CRRSET  followed 
by  BIBSUB2  for  example. 
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An  example  of  PLTDEV  output  is  shown  below. 


TRANSMITTER  DIROLAR  C00RD6 --RADIU6=  6370  -000  Kn.COLAT-*  3Z.000  OEG.LONO=  1 .800  0EG 

NEAR  INT.  DATVX  10/05/76  14.47.25- 

7.00  MHZ 
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NAME: 
CATEGORY: 
TITLE : 
LANGUAGE : 
PROGRAMMER: 
DATE: 


PRINT3  (formerly  PRINT2),  revision  0,  subroutine,  PML  165 

General  purpose 

Automatic  formatted  output 

CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 

July  19,  1976 


DESCRIPTION 

PRINT3  may  be  used  to  output  an  array  of  data  under  variable 
format  control.  It  is  most  useful  in  those  situations  where  the 
number  of  columns  of  data  to  be  output  exceeds  the  capacity  of 
a standard  print  page.  The  user  may  select  data  to  be  included 
as  "header"  information  on  each  page  as  well  as  a column  of  data 
to  be  repeated  on  each  page  if  more  than  one  page  is  required  to 
include  all  columns.  In  addition  to  the  data,  the  user  must  supply 
an  array  of  formatting  data  to  control  output.  Spacing  of  data 
columns  is  taken  care  of  by  the  subroutine. 

USAGE 

CALL  PRINT3(M,M1,M2,  TITLE,  B,  FORM,  INDIC,  NCHARMX,  NROWS,  IPRINT) 
parameters 

- number  of  values  to  be  printed.  For  example,  an 
array  of  numbers  of  M columns  and  N rows  are  to  be 
output.  Some  "columns"  may  be  considered  header 
data  (see  Ml)  [integer  > 0] 

- number  of  header  values.  More  explicitly,  the  first 
Ml  "columns"  in  the  data  array  are  to  be  used  in 
headers  on  each  page.  [integer  > 0] 

- column  number  within  the  array  of  M columns  which 
is  to  be  repeated  on  each  page.  [integer  > 0] 

- an  array  of  dimension  (4,M)  which  contains  Hollerith 
titling  information  for  each  of  the  M data  columns. 

The  four  words  in  each  title  are  printed  in  column 
fashion.  (See  the  example  at  the  end  of  the  subroutine 
write-up . ) 


M 


Ml 


M2 


TITLE 


1 - 


M 
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B 


FORM 


INDIC  - 


NCHARMX 
NROWS  - 


IPRINT  - 


an  array  of  up  to  12  words  (Hollerith)  which  are 
to  be  printed  on  each  page  as  a title.  This  array 
should  be  filled  with  blanks  if  no  title  is  to  appear, 
an  array  of  M words  (Hollerith)  which  contain  valid 
format  field  specifiers.  These  specifiers  must  be 
of  the  form 

lf#n 

where : 

1 is  one  of  the  format  conversion  letters  A,  E, 

F,  G,  I,  L,  0,  R 

f is  the  integer  field  length 
& may  be  missing  or  a period 

n may  be  missing  or  an  integer 

For  example  - A10,  El6 .4,  15,  etc. 
an  indicator  which  controls  print  out . PRINT3  is 
designed  to  be  used  in  place  of  a line  by  line  WRITE 
statement  i.e.  it  accumulates  one  row  of  data  to  be 
output  each  time  it  is  called.  The  first  time  PRINT3 
is  called  INDIC  must  be  set  to  zero  in  order  to 
force  PRINT3  to  establish  format  arrays,  etc.  PRINT3 
then  changes  INDIC  to  1.  When  PRINT3  is  called  the 
last  time  i.e.  the  N^  row  has  been  generated  and  is 
to  be  printed,  INDIC  should  be  set  to  999  to  force 
print  out  of  accumulated cfata . 

maximum  number  of  characters/line.  [integer  > 0] 
maximum  number  of  rows  per  page,  not  including 
header  and  titling  information.  I5  lines  are  used 
if  a 4 row  header  (i.e.  the  header  can  be  contained 
in  k rows)  is  used.  (See  example)  [integer  > 0] 
logical  file  name  (left  justified  zero  fill)  of  the 
print  file  to  receive  the  printed  output.  This  file 
must  be  declared  in  a program  statement. 


2 
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The  following  labeled  common  storage  areas  should  be 
declared  in  the  calling  subroutine  or  in  a subroutine  loaded 
before  PRINT3: 

/DATA/  (M  x NROWS) 

This  common  storage  area  is  a scratch  storage  area  used  to 
accumulate  data  prior  to  print  out  of  a page  of  data, 

/QUANTl/  (M) 

On  each  call  to  PRINT3  /QUANTl/  should  contain  one  row  of  data 
to  be  printed. 

STORAGE  REQUIRED 

The  storage  required  for  PRINT3,  not  including  the  above 
mentioned  common  storage  areas  is  l407g  (824^Q). 

ALGORITHM 

When  PRINT3  is  called  with  INDIC  = 0,  the  format  arrays  PHEADER, 
QHEADER,  HEADER  and  NUMBER  are  constructed  so  they  can  be  used  in  an 
"execution  time"  format  statement  e.g,  WRITE  (IPRINT,  HEADER(1,K)) 

(data  list).  These  format  arrays  are  established  in  such  a fashion 
that  the  last  column  of  data  will  fall  within  the  page  width  boundary 
specified  by  NCHARMX.  Two  spaces  between  columns  are  used.  As 
mentioned  previously,  INDIC  must  be  zero  on  first  call  to  PRINT3. 

After  the  various  format  arrays  have  been  established,  the  subroutine 
continues  into  storage  phase  wherein  one  row  of  data  from  /QUANTl/ 
is  stored  in  /DATA/. 

One  or  more  pages  of  dataare  printed  whenever  one  of  the  following 
occurs  : 

(1)  a header  datum  changes  value 

(2)  NROWS  have  been  accumulated 

(3)  INDIC  has  been  set  to  999* 

If  the  number  of  columns  of  data  cannot  fit  on  a single  page, 
the  excess  columns  are  printed  on  pages  immediately  following  the 
starting  page  which  is  printed  whenever  one  of  the  above  conditions 
occur.  Header  information  is  repeated  as  is  the  "repeat"  column  specified 
by  M2. 


- 3 - 


- 331  - 


PML  165 


SPECIAL  CAUTION  AND  FEATURES 

Header  information,  if  any,  must  appear  only  in  the  first  Ml 
locations  in  /QUANTl/ . The  repeat  column  specified  by  M2  may 
appear  anywhere.  It  will  always  appear  on  the  printed  page  as  the 

first  column. 

PRINT3  is  limited  to  a maximum  of  7 continuation  pages  (a 
values  which  should  seldom  be  exceeded  in  practice). 

TIMING 

Not  applicable. 

ERROR  MESSAGES 
None 

SUBROUTINES 

None 

ACCURACY 

Not  applicable. 

COMMENTS  ON  USAGE 

PRINT3  is  useful  in  any  situation  for  printing  out  data  arrays 
in  a neat  fashion.  It  is  particularly  useful  when  the  number  of 
columns  of  data  will  not  fit  on  a single  page. 


EXAMPLE  OF  USE 

The  following  listing  of  subroutine  FLUXPRl  (see  PML  162) 
is  a good  example  of  the  use  of  PRINT3 • A sample  of  the  printed 
output  is  also  included. 


o o o o 
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SUQROUTINE  FLUXPR1 (IN, IPRNT) 

REVISION JANUARY  11,1977 

°UR°OS  E PRINT  OUT  FLUX  TU3E  DESCRIPTION  AT  BACKSCATTER  POINTS 

ARGUMENTS IN  FLUX  TUBE  FILE  NAME  (LEFT  JU3TIFI _D, ZERO  FIuL) 

I°RNT  PRINT  FILE  FOR  OUTPUT  (LEFT  JUSTIFY, ZERO  FIL-) 
COMMON/SYSTEM/ DEL  A ,0 EL  £ « DUM ( £ ) , D EL  G , OE  L F , OUN ( : ) , P W , ? j 
C0MM0N/I9UF/BUF (1 ) 

COMMON/FIT A IN/ PIT A IN (1  ) 

C0MM0N/INBUF/IN3UF (1) 

COMMON/FLUXPR/C 
C0MM0N/QUANT1/C(3C > 

OIMENSION  FORM  (3:),TITLE(vr,3:),DID(l2>,ARRAY(i;),RINT(-> 
DIMENSION  NAME (2) 

E X TER N AL  EOFILE,  ERROR  1 

DATA  ( FORM=  "A  1 0",  " FL , 1 " » "F » 2"  » "F7 . 2",  "E1E . 3** , l-»* "F7  . £*',  "F  7 . 3”  , 
7"F7.2","F7.  3" * "F7 , 2”  , " A 1 Q •*) 

DATA  (((TITLE  (I, J)  , I = 1 , *. ) , J=  A,  15  ) = 

.VBACK-", "SCATTER",  "POINT","  ", 

‘"FREQUENCY","  ","  ",  " ( MH Z ) " » 

*" AZIMUTH","  ", "COMPUTE"," (DEGREES) ", 

‘"ELEVATION","  ",1H  , "(DEGREES)", 

5 " e L U X TUBE","X-SECTI0N",1H  , " ( STERRAD. ) ", 

C" TOTAL"," PATH", "GA IN", " ( 03/ DEG ) " , 

S"W AVrLrNGTH","GAIN", 1H  ,"(C3  KM*+2)", 

'"TRANSMIT", "ANTENNA", "GAIN"," ( DB)", 

*"RECE  IVF"  ,"  ANT  ENN  A ",  "G  AI N", " (DB) ", 

""OISTANCE" ,"(R-A)  GAIN",  1H  ,**(03  KM--*)  ", 

S"R  AO A R", "X- SEC  TI0N",1H  ,"(C3  K M 2 ) " , 

'"PULSE"," SPREAD", "GAIN", " (D3) " , 

'"ABSORPTION"," (2-WAY)" , "G  AIN", " ( DB ) " , 

'"REFLECTION", "GAIN", "MULTI-HOP"," (03)" , 

‘"TOTAL", "PATH" , "GAIN"," ( 03/ DEG)") 

DATA  (((TITLE(ItJ)  ,1=1, A)  ,J  = 16,2*+)  = 

'"PAY-FOCUS", "GAIN"  ,"  "," (OB) ", 

S"GRCUP  PATH”, "LENGTH","  ","(KM)", 

‘"GROUP  PATH", "LENGTH", "SPREAD", "(KM)", 

?"GROUND", "RANGE","  “," (KM)", 

'"AZIMUTHAL", "DEVI ATI0N",1H  ."(DEGREES) ", 

‘"APOGEE" , "OR  HEIGHT","  ","(<, M)", 

S" ARRIVAL", "ANGLE","  ” , " ( DEG R EE S ) " , 

J" ACCURATE", "GEOMAG.", "COLATITUDE"," (DEGRESS) ", 

'"POLARITY", "RATIO  OF","OIAG.-RAT.","DEL-GAMMA") 

OATA  (NAME  = "9'*  DEG.","RCVR") 

CALL  FILESO (FITAIN ,3LLFN, IN, 3LMRL, - 12C ,2LDX, EOFIL^, 2Li X, iR\OR: , 
?3L3FS,E1S,3LFW3,IN9UF) 

CALL  OPENM(FIT AIN, 5LINPUT) 

CALL  GET (FITAIN,3UF) 

IP  ( I EOF ( X)  ,NE.  G)  GOTO  1C  0 S 
R1=PUF(H) 

THETA 1=BUF ( 12) 

THETA0=THETA1*57,2957735 
PHI 1=  BUF (13) 

PHlD=PHll* -j  7,2957795 

NPTS=BUF(4)  .0.  0 

N2  =?*  NPT  S 

M=?UF(E)  .0.  0 

IF  (NPTS  .EO.  C ) GOTO  1330 
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Mi  = (M-L) / N°  TS 

JSTART=5 

DO  i::  1 = 1,  t. 

100  01 D (I ) =BUF ( 1+6 ) 

ENCODE (30 ,6 ,OID(r ) ) TH E TA D , PH  I 0 , C 
DO  12  0 1 = 1,  U 

120  RINK  I)=3UF  (13  + N2+I) 

DO  12C  11=1,2 

indic=: 

15-0  CALL  GK  ( FI  TAIN.B'JF) 

IF  (IEOF(X)  • N£»  C)  GOTO  1.0 
IF  <3UF(1>  .EQ.  999.)  GOTO  130 
F = EACSCAl  (J  ST  A RT,FE,PW,Rl,THiTAl,  PH  ID 
IWHY=Q(1)  .0.  0 

IF  ( I WHY  .EQ.  NAME  (II)  ) 155, 16- 
155  IF  ( Q ( 25 ) .EG.  0.)  GOTO  lcl 

CALL  FRINT3  (2h,  3,  L,  TITLE,  DID,  FORM,  INDI  C.132, 3'  .IPRNU 
GOTO  160 

150  CALL  REWND(FITAIN) 

CALL  GET  ( FI TA I N, 3U  ~ > 

IF  (INDIC  .ME.  0)  GOTO  1 7j 
WRITE  7 $ GOTO  1C00 

170  IN  010  = 999 

CALL  PRINT  ? (24, 3,!*  , TITLE,  DID,  FCRM,  INDIC,  132,  92  ,IPRNT> 
130  CONTINUE 
1000  CALL  CLOSEM (FI  TAIN ) 

RETURN 

1 FORMAT  (1H1,  " FlIJX  TU3>  R E PGR  T"  / 4X  4 A 1 0 ) 

2 FORMAT  (**  HOF  NUMBER  "12”,  LANDING  POINT  "Al3> 

■*  FORMAT  (”  RHASE  3ATw  CALCULATED") 

4 FO^MA  T t”  ABSORPTION  CALCULATED") 

5 FO°MAT  (**  DOPPLER  C AL  CUL  A T Er  " > 

6 FORMAT (”  GECMETRIC  PATH  CALCULATED") 

7 FO  CM A T ( " FLUXPR,NO  FLUX  TUBES  AV  A IL  A 9L  r " ) 

8 FORMAT  { TRANSMITTER  AT  "F'.2"  (DEG.  COLAT.)  " F-* , 2 

( DCG  LONG.),  OPSI  LOSS  =**f  3 . 1 " 03/DEG") 

END 


NAME: 


CATEGORY: 
TITLE : 
LANGUAGE : 
PROGRAMMER: 
DATE: 


CRTl:  revision  0,  subroutine,  PML  168 
General  purpose  display 
CRT  (intensity)  display 
CDC  Extended  Fortran 

T.  B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 
September  197& 


DESCRIPTION 

The  primary  purpose  of  CRTl  is  to  display  a function  of  two 
variables  as  an  apparent  intensity  variation  as  a function  of  x-y 
coordinates.  Actually  the  intensity  variation  is  obtained  through 
the  use  of  a simulated  "half  tone  dots".  The  dots  are  generated 
by  a subroutine,  PLOTI,  which  is  essentially  the  same  as  that  used  by 
Stephenson  and  Georges  in  "Computer  Routines  for  Synthesizing  Ground 
Backscatter  From  Three-Dimensional  Raysets",  (I969)  ESS/Tech.  Rpt . 

ERL  120-ITS84. 

There  are  various  modes  of  operation  possible  which  allow  the 
user  to  "normalize"  the  function  to  be  displayed  in  various  ways  (see 
below) . 

USAGE 

SUBROUTINE  CRTl (DB, GAIN, NLEV, INDIC, IX, IY,M0DE ) 

Input  parameters 

Parameter  type  is  shown  in  parentheses;  refer  to  notes 
indicated  by  asterisks  for  details.  Default  values,  if  any, 
are  indicated  by  brackets.  (A  default  value  is  substituted  for 
a given  value  of  0.) 

DB  (floating  point)  [20.]  intensity  display  "dynamic  range".  *1 

It  functions  in  various  ways  according  to  MODE. 

GAIN  (floating  point)  [1.]  intensity  display  "gain".  *1 

DB  and  GAIN  interact  as  indicated  in  the  notes  to 
produce  different  display  effects  according  to  MODE 
of  operation. 

NLEV  (integer)  [11]  is  the  number  of  intensity  levels  to  be  *2 

used  in  the  display.  The  maximum  at  present  is  11. 
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1NDIC 


(integer)  is  a parameter  which  can  be  used  to  *3 
superimpose  functions  on  the  same  coordinate 
frame . 

(integer)  are  the  inches  per  bin  (in  "c^'s")  *4 

in  the  x and  y directions. 


MODE 


(integer)  (mode  of  operation)  *5 

0 no  special  normalization, DB  and  GAIN  are  used 
in  the  "standard"  manner. 

1 GAIN  is  interpreted  as  the  maximum  intensity  to  be 
plotted;  the  minimum  intensity  to  be  plotted  is  DB  db 
below  this  value. 

2 GAIN  has  no  function.  Each  column  to  be  plotted  is 
normalized  (divided)  by  the  maximum  function  value  for 
that  column.  Intensity  levels  are  adjusted  in  equal 
steps  to  DB  db  below  the  maximum. 

3 same  as  for  MODE  = 2 except  substitute  "row"  for  "column  " 

4 is  used  to  "smooth"  the  display  using  a 2 dimensional 
weighting  function  and  convolution.  At  the  time  of 
writing  it  should  be  considered  experimental. 


notes 

*1  In  the  "standard"  mode  (MODE  = 0)  of  operation  the  functional 
value  to  be  displayed  is  represented  by  a half-tone  dot 
pattern  which  is  the  same  for  all  values  within  a given 
"contour"  interval.  These  intervals,  I.,  are  defined  by  DB, 
GAIN  and  NLEV  by 

I.  = Imin  + (i_1)  * A 1 ; i = 1 to  NLEV 
where 

fa  I -I  . 

T ° t max  mm 

min  " K • GAIN  ’ NLEV-1 


I 

max 


fg  • K 
GAIN 


fg  = geometric  mean  of  the  function  f (assumed  positive) 

DB 

K = "contrast"  = 10  ^0 


2 
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For  MODE  = 2,3  operation,  the  levels  are  determined  according  to: 

I.  . I lo0»/2O)(i-SU!*)  . t , 1(BLEV 

l max  ’ ' 


where 

I = f(c  or  r max')  (column  or  row  max  of  the  function  f) 
max  v ' ' 

*2  There  are  at  present  11  distinctive  "grey  levels"  available. 

If  a function  value  falls  below  I . , it  is  not  plotted 

min’ 

(i.e.  is  represented  by  "white").  If  a function  value  falls 

at  or  above  I and  NLEV  is  11,  it  is  represented  by  "black". 

Note  that  if  NLEV  is  less  than  11,  function  values  which  fall 

on  or  above  I are  represented  by  a "grey", 
max 

*3  If  INDIC  = 0,  the  axis  and  calibration  strips,  etc.  are  drawn 
as  well  as  the  function  values  poltted.  If  INDIC  >0  only  the 
function  values  are  plotted.  This  means  that  it  is  possible 
to  superimpose  functions  (or  different  parts  of  the  function 
generated  at  different  times)  on  the  same  coordinate  frame. 

*4  A single  "half  tone  dot"  can  be  imagined  to  occupy  a square 

which  is  C inches  on  a side.  (To  be  more  exact,  the  elemental 
points  which  make  up  a "dot"  fall  within  this  square.)  It 
is  frequently  desirable  to  represent  the  function  value  at 
the  spatial  "point"  x,y  by  more  than  one  dot,  e.g.  in  order 
to  fill  up  more  of  the  available  plotting  area.  Thus  we 
can  imagine  function  values  being  represented  by  "super-dots" 
or  rectangles  which  are  C"IX  by  OIY  on  a side.  The  values 
of  IX  and  IY  which  the  user  chooses  should  be  considered  to 
be  maximum  values.  Subroutine  CRT1  will  decrease  these 
quantities  if  necessary  to  contain  the  plot  on  the  frame. 

(see  "labeled  common  input") 

*5  If  MODE  = 2 or  3,  a small  "strip  chart  is  plotted  on  the 

display  to  indicate  the  relative  values  of  the  maximum  function 
values  (row  or  column  maxima)  which  were  used  to  set  the  intensity 
levels  for  the  display. 
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Labeled  common  input 

Labeled  common  area  /DATA/  contains  the  function  values 
(z-value)  to  be  plotted  as  well  as  values  which  indicate  the 
corresponding  values  of  x,y.  Thus  the  function,  f,  should  be 
stored  in  /DATA/  in  the  sequence: 

/DATA/xQ,  Ax,nx,yQ,  Ay,n  , f(xQ,y0),  f(x0+Ax,yQ), 

...  f(x0+(nx-l)Ax,yQ),  f(xQ,y0+Ay),  f (xQ+(nx-l ) A x,yQ+ Ay ), 
...  f(xQ+(nx-l)A  x,yQ+(ny-l)Ay) 

Note  that  the  "dot"  or  superdot"  which  represents  f(x,y)  has 
local  origin  at  relative  location  x,y  in  the  plot  frame. 


Title  (in  Hollerith)  for  the  plot  are  contained  in  common  area 
/TITLES/  as  follows: 

ID(L)  ‘ h words  of  plot  indent  if icat ion  which  are  plotted 
at  upper  left  in  frame. 

TITLE (6)  additional  plot  identification  plotted  beneath  ID. 

XTITLE(6)  x-axis  title. 

YTITLE(6)  y-axis  title. 

PTITLE(b)  "parameter"  information  plotted  below  TITLE. 


Following  this  Hollerith  information  the  integer  length  (number 
of  characters)  of  the  titles  should  be  included  in  the  order 
NTC,  NXC,  NYC,  NPC. 


Use  of  ether  common  storage 

/DDXY/  communicates  with  subroutine  DXY. 


STORAGE  REQUIRED 

The  amount  of  storage  required  by  CRT1  and  its  special  subroutines 
(see  SUBROUTINES),  but  not  including  common  storage  except  /DDXY/  is 

2517q  (135910). 

algorithm 

Most  of  the  subroutine  is  a straight  forward  implementation  of 
the  various  modes  of  operation  as  defined  above.  The  available  total 


k - 
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plotting  area  is  11"  by  lj"  (equivalent  lengths  in  the  y,x  directions 
respectively  if  this  were  the  usual  "pen-plot").  Some  of  this  space 
is  used  for  titles,  etc.  so  that  the  effective  plot  space  is  considered 
to  be  9.5"  by  15.5"*  As  mentioned  above  this  space  can  be  filled  with 
rectangular  dots  which  are  up  to  IX ‘C  by  IY’C  inches  on  a side.  The 
value  of  C is  given  in  a data  statement  which  at  the  time  of  writing 
is  .05.  Each  dot  contains  one  or  more  points  which  are  multiples  of 
C/7  (=  .0071^3  with  the  present  value  of  C).  Since  the  minimum  CRT 
plotter  increment  is  .005,  C should  not  be  less  than  .035  inches . 

The  function  to  be  plotted  is  essentially  an  nx  by  n matrix  of  real 
numbers.  This  matrix  can  be  plotted  provided  nx<l5*5/C  and  n^<9.5. 

If  this  condition  is  not  fulfilled,  the  program  halts  execution  with 
a fatal  error  message. 

The  coordinate  frame  axes  are  drawn  and  partially  labeled  by 
system  subroutine  AXISL.  Among  other  arguments  required  are  NUMDIV, 
the  number  of  major  division;  DIVLEN,  length  in  inches  of  a major 
division;  NUMSUB,  the  number  of  minor  divisions;  BEGNUM,  the  number 
used  to  label  the  beginning  of  the  axis;  DELNUM,  incremental  change 
in  the  number  used  for  axis  labeling;  NUMDEC,  the  number  of  decimal 
places  to  be  used  in  the  number  labels.  These  quantities  are  determined 
as  follows: 

let  a = maximum  total  axis  length 
max  0 

a = DIVLEN  = length  of  major  subdivision  (each  major 
subdivision  is  labeled  with  a scale  number) 
n = NUMDIV  = number  of  major  subdivisions 

q = length  of  superdot  along  axis 

m = NUMSUB  = number  of  minor  subdivisions  / major  division 

(possible  values  used  here  are  10,5,2,1  where  1 is 

equivalent  to  minor  subdivision  = major  subdivision) 

k = total  number  of  elements  to  be  plotted  in  the  axis 

direction  (n  or  n ) 

' x y ' 

A = change  in  function  argument  from  one  superdot  to  the 

next  (a  or  A ) 
v x y ' 

A = DELNUM  = change  in  scale  value  per  major  division 
s 


i 
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then: 

(1)  adjust  q in  increments  of  C such  that  q-k<  a 

(2)  adjust  m such  that  m*q  < a x 

(3)  a = m-q 

(1+)  n = +1]  ; [ ] means  ineger  part  of 

(if  n-a  > a , reduce  n by  1 ) 

(5}  A3  _ a 

A q 

For  printing  purposes  the  scale  numbers  (BEGNUM,  DELNUM)  are 
adjusted  (by  factors  of  10)  such  that  Ag  can  be  expressed  in  the 
form  + xx, xx  • 101  where  i is  a positive  or  negative  integer  or 
zero  and  the  first  x is  not  zero. 


SPECIAL  CAUTION  AND  FEATURES 

The  user  should  pay  attention  to  values  assigned  to  XMIN,  DELX, 
YMIN,  DELY  since  these  values  eventually  determine  the  scale  numbers 
which  appear  on  the  display  (see  ALGORITHM).  The  function  to  be  plotted 
should  be  positive  (or  normalized  in  some  fashion  to  be  made  positive). 
Function  values  of  zero  are  permitted  but  will  not  be  plotted.  (A  zero 
value  can  be  considered  to  correspond  to  a point  where  the  function  is 
not  defined.) 

The  following  "debugging"  information  is  printed  on  the  OUTPUT  file 

"CRT1, COMMON  INPUT  XMIN,  DELX,  NX,  YMIN,  DELY,  NY 

xQ  , Ax  , nx,  yQ,  Ay  , ny 

n , k , i 

for  x-axis  then  for  y-axis 

n , a , m , s , A s 


where  n,  = number  of  dots/superdot 
a 

s = BEGNUM  = scale  factor  labeling  the  axis  origin 

See  ALGORITHM  for  the  meaning  of  the  other  symbols.  The  values 

of  s and  A have  been  normalized  such  that  A = + xx.xx  • 10  . 
s s — 

The  subroutine  is  "protected"  for  an  all  zero  function  (axes  and 

labels  will  be  drawn  but  nothing  plotted). 

Note  that  calls  to  CRTPLT  and  ENDPLT  must  be  made  prior  to  and  afte 

CBTl  la  c«n«d.  (tee  EXAMPLE  OF  USE)  . ^ 
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TIMING 

Timing  depends  mainly  on  the  number  of  function  elements  which 

fall  above  the  minimum  "contour"  level,  I . , and  the  number  of  dots 

7 min 

in  each  superdot  used  to  represent  a function  value.  At  present  no 
timing  information  is  available. 

ERROR  MESSAGES 

"CRT1  - PLOT  OUT  OF  BOUNDS  IN  X-DIRECTION" 
or 

"CRT1  - PLOT  OUT  OF  B0UNE6  IN  Y-DIRECTION" 

if  q*k  > a (see  ALGORITHM)  for  the  minimum  value  of  q 

"DATA  IS  ALL  ZEROES" 

if  the  function  to  be  plotted  is  identically  zero. 


SUBROUTINES  (not  including  "standard"  plot  software) 

Subroutines  marked  with  * are  considered  to  be  part  of  CRT1 . 

AXISL  - "systems  linear  axis  plotting  subroutine 
FCONTR  - determines  contour  levels 

INTENSE  - used  only  if  MODE  = 4 for  smoothing 
PLOTI*  - "half-tone"  dot  generator 

SCALF  - used  for  finding  factors  of  10,  etc.  for  scaling  purposes 

ACCURACY 


Not  applicable 


COMMENTS  ON  USAGE 

CRTl  can  be  used  to  display  any  positive  function  of  two  variables 
(usually  in  the  "standard”  mode  (MODE  = 0)).  The  other  modes  are  useful 
for  simulating  special  devices  such  as  ionosondes  where  the  particular 
method  of  normalization  implied  by  a particular  mode  is  actually  used. 


FILE  DESCRIPTIONS 


The  only  files  used  are  OUTPUT  for  formatted  output  messages  and 

(implicitly)  a plot  file  which  should  be  disposed  properly  at  the  end 
of  a job  (see  EXAMPLE  OF  USE). 
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EXAMPLE  OF  USE 

The  following  example  assumes  that  subroutine  BIN  (see  PML  I69 ) 
is  used  to  generate  the  function  to  be  displayed  thus  some  of  the 
common  declarations  are  made  for  this  subroutine. 

PROGRAM  MAIN  (OUTPUT, PRINT) 

COMMON / FIT AIN / FITAIN ( 35 ) 

COMMON/ INBUF/ INBUF (514) 

COMMON /ME S S A/ I FATAL , MESSA ( 20 ) 

COMMON/ IBUF/IBUF( 100) 

C0MM0N/DATA/DATA(6000 ) 

C0MM0N/SYSTEM/ANTENNA(10),  RECEIVE(IO),  TRANS(IO) 

DIMENSION  PR0GID(3) 

DATA  (PROGID="BARRETT",  "2628",  "CRT-PLOT") 

DATA  (ANTENNA=1 . , 1 . ),  (RECEIVE=200 . , .5) , (TRANS =50 ., 10000 . ) 

CALL  BIN(5.00,2,1,5LFLUXT,6000) 

IF  (IFATAL.EQ.1)  GOTO  1000 

CALL  CRTPLT(PR0GID,1.,17-) 

CALL  CRTl(200.,l.,H,-l,6,6,2) 

CALL  ENDPLT 
1000  STOP 

END 


Two  examples  of  CRTl  output  are  shown  in  Figures  1 and  2.  Figure  2 
includes  a "normalization"  curve  and  a calibration  strip. 
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NAME:  BIN,  revision  0,  subroutine,  PML  I69 

CATEGORY:  Special  purpose 

TITLE:  Binning  of  power  for  ionogram  displays 

LANGUAGE:  CDC  Extended  Fortran 

PROGRAMMER:  T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc, 

DATE : June  I976 


DESCRIPTION 

This  subroutine  is  used  to  sort  (and  sum)  "incremented  backscattered 
power"  into  various  "bins"  according  to  various  criteria.  These  criteria 
fall  into  3 categories  which  are  coded  as  CAA,  CIA  and  All;  they  are 
described  below.  It  first  should  be  pointed  out  that  although  this 
subroutine  was  written  for  a very  specific  purpose,  i.e.  ionogram 
synthesis,  it  can  be  used  in  more  general  situations  where  a similar 
"binning"  is  required.  Thus  BIN  is  described  in  fairly  general  termino- 
logy although  in  practice  its  operation  is  governed  by  the  specific 
structure  of  the  file  from  which  input  data  to  be  binned  is  obtained 
(see  FILE  DESCRIPTION). 

The  easiest  way  to  understand  BIN  is  to  imagine  a table  of  values 
of  P,  G,  f,  a,  e where,  for  example: 

P = incremental  power 
G = group  path  length 
f = frequency 
a = azimuth 
e = elevation  angle 

In  general  there  will  be  several  different  values  of  P and  G for 
the  same  set  of  values  of  f,  a,  e. 

In  CAA  binning  the  table  is  first  searched  for  a given  value 
(constant)  of  f,  a or  e to  produce  a sub-table  of  values  P,  G,  f,  a,  e 
(for  example  f = f in  this  sub-table).  A set  of  "bins"  is  then  estab- 
lished for  the  remaining  f,  a,  e quantities  (for  example  a^,  a^  + A a, 
a^  + 2 4a,  •••  a^;  e^,  e^  + a e,  •••  e^)  and  values  of  P from  the  sub- 
table are  summed  into  these  bins  regardless  of  the  value  of  G. 
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In  CIA  binning  the  table  is  searched  as  before  to  produce  a 
sub-table  with  a constant  value  of  f,  a or  e,  A set  of  bins  is  then 
established  for  one  of  the  remaining  f,  a,  e quantities  (the  A quantity) 
and  G.  Values  of  P from  the  sub-table  are  summed  into  these  bins 
regardless  of  the  value  of  the  third  (the  I quantity). 

In  All  binning  a set  of  bins  is  established  for  one  of  the 
quantities  of  f,  a or  e and  G.  Values  of  P from  the  table  are  summed 
into  these  bins  regardless  of  the  values  of  the  other  two  quantities. 

USAGE 

S UBROUT INE  BIN(Fl,Al,El,IN,ISIZE) 

Input  parameters 

Parameter  type  (integer,  etc.)  is  shown  in  parentheses;  refer 
to  notes  indicated  by  asterisks  for  details.  There  are  no  default 
values  . 


Fl 

frequency 

"indicator" 

(floating  point,  integer) 

*1 

Al 

az imuth 

II 

II  II  II 

*1 

El 

elevation 

If 

If  If  If 

*1 

IN 

input  file 

name 

( left 

justified,  zero  fill) 

*2 

ISIZE 

amount  of 
in  /DATA/ 

storage 

available  (integer) 

*3 

notes : 

*1  These  parameters  indicate  whether  the  quantities  f,  a,  e are 
C,  A or  I-variables . In  addition,  if  they  are  A-variables, 
whether  the  binning  should  be  done  such  that  they  are  x or 
y-variables  i.e.  whether  they  normally  supply  the  x-values  or 
y-values  for  intensity  plots.  See  output  for  further  details 
on  the  "x-y"  characteristics  of  the  quantities.  If,  for  example, 
Fl  is  a floating  point  number,  Fl  is  treated  as  a constant  (a 
C-variable)  and  the  sub-table  produced  from  the  table  (in  this 
case  the  input  file)  will  contain  records  with  values  of 
frequency  equal  to  Fl . The  other  acceptable  values  are  integer 
1,  2 or  3: 
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1 means  this  is  an  I-variable 

2 means  this  is  an  A-variable  (x-variable) 

3 means  this  is  an  A-variable  (y-variable) 

Any  other  value  (e.g.  4)  will  be  treated  as  floating  point 
and  will  probably  produce  erroneous  results. 

*2  This  is  the  logical  file  name  of  the  input  file  which  contains 

the  "table"  of  P,  G,  f , a,  e values . See  FILE  DESCRIPTION  for  the 
assumed  structure  of  this  file. 

*3  The  main  output  of  BIN  (see  output ) is  stored  in  labeled  common 
area  /DATA/.  ISIZE  should  set  to  the  dimension  value  which 
has  been  declared  for  /DATA/  to  prevent  a possible  subroutine 
malfunction. 

labeled  common  input 

Additional  input  is  required  by  BIN  in  order  to  establish 
bin  widths.  This  is  done  through  labeled  common  area  /SYSTEM/. 

The  following  locations  in  system  provide  the  indicated  bin  widths: 

a (azimuth  resolution,  degrees) 
e (elevation  resolution,  degrees) 

f (frequency  resolution,  MHz) 

G (group  path  length  resolution,  km) 

In  addition,  location  (22)  in  /SYSTEM/  contains  the  total 
transmitted  power  which  is  passed  to  BACSCAl  (see  ALGORITHM  and 
PML  I63)  for  incremental  power  calculations. 

labeled  common  output 

The  main  output  of  BIN  is  backscatter  intensity  vs  x and  y 
in  labeled  common  /DATA/  as  follows: 

x0>  Ax>  Mx>  Yo>*y'  V b(x1>y1)>  b(x?>yi )> •••>b(xM  b(vy2)>  •••> 

y X 

b(xM  'y2^  b^XM  ’yM 

x x y 

The  x - bin  boundaries  are  defined  as  x , x„  + ix.  x + 2 dx,  ..., 

o'  0 ’ o ’ ’ 

x + M • A x,  and  similarly  for  the  y - bin  boundaries, 
ox’  ’ 


(1) 

(2) 

(12) 

(21) 
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The  value  of  parameter  ISIZE  (see  above)  should  be  at  least  as 

large  as  M • M +6.  If  it  is  not,  BIN  will  terminate  with  an 
& x y ’ 

error  message. 


In  addition  BIN  provides  title  information  for  use  with  various 
display  subroutines  in  labeled  common  /TITLES/  as  follows: 


id(4) 

TITLE (6) 
XTITLE(6) 

ytitle(6) 

ptitle(6) 


This  is  the  4 words  of  ID  information  obtained 
from  RAYSET  by  subroutine  CRRSET  (see  PML  157) 

At  present  TITLE  gives  the  location  of  the  trans- 
mitter in  dipolar  coordinates  . 
x-axis  title 
y-axis  title 

Parameter  title.  The  contents  of  PTITLE  depends  on 
the  type  binning  done  as  determined  by  the  variables 


Fl,  Al,  El. 


NTC,NXC,  number  of  characters  in  TITLE,  XTITLE,  YTITLE, 
NYC, NPC  PTITLE  respectively. 


use  of  other  common  storage  areas 

Storage  areas  /TITLES/  and  /SYSTEM/  are  declared  in  BIN  to 
have  lengths  32  and  22  respectively.  The  following  storage  areas 
must  be  declared  in  a subroutine  which  is  loaded  prior  to  BIN. 
(Usually  this  is  done  in  the  main  program  - see  EXAMPLE  OF  USE.) 
The  size6  of  these  areas  are  indicated  in  parentheses. 

/MESSA/  (21) 

/IBUF/  (length  of  input  record  - see  FILE  DESCRIPTION) 
/FITAIN/  (35) 

/ FITAOUT / (35) 

/INBUF/  (35) 

/OUTBUF/  (35) 


STORAGE  REQUIRED 

The  amount  of  storage  required  by  BIN  and  its  associated  subroutine 
ADDS,  but  not  including  common  storage  areas  is  I335g  (73^q)  • 
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ALGORITHM 

First,  the  number  of  constant  variables  (there  can  be  only  1 or  0) 
and  their  "location"  e.g.  FI,  A1  or  El  are  determined  and  the  sub-table 
created.  If  there  is  no  C-variable,  a sub-table  of  sorts  is  created 
anyway,  in  that  a record  from  the  input  file  is  copied  to  the  scratch 
"sub-table"  only  if  a value  of  P can  be  calculated  from  this  record. 

(Thus  the  input  "table"  does  not  really  contain  P-values  but  only 
quantities  from  which  P can  be  calculated.  P can  be  calculated  only  if 
a "flux  tube"  has  one  or  more  landing  points  and  a well  defined  cross- 
section  there.  See  subroutine  DEN,  PML  161 . ) It  may  happen  that 
there  are  two  "matches"  between  the  C-value  and  the  corresponding  value 
of  f,  a or  e - whichever  is  to  be  selected.  In  this  case,  BIN  rewinds 
the  input  table,  selects  the  first  value  of  f,  a or  e found  and  uses 
this  as  the  C-value. 

The  bin  widchs  are  obtained  from  labeled  common  /SYSTEM/  as  mentioned 
above.  The  bin  boundaries,  however,  are  obtained  from  the  appropriate 
maximum  and  minimum  values  of  the  quantities  f,  a or  e.  If  there  are  no 
C-variables,  these  max.  and  min.  are  obtained  from  the  last  record  in 
the  input  file.  Otherwise  they  are  obtained  from  the  sub-table  after 
it  has  been  created. 

The  sub-table  is  actually  a file  which  is  created  by  BIN  with  the 
name  "FILE".  Both  "FILE"  and  the  input  file  are  manipulated  using 
Record  Manager  calls. 

After  FILE  has  been  created,  the  mode  of  operation  CAA,  CIA,  or 
All  is  determined  and  titles  appropriately  filled  in.  (These  titles 
can  be  used  by  various  display  subroutines.)  In  addition  the  bin 
boundaries,  number  of  bins  and  bin  widths  are  determined. 

For  all  binning  operations,  the  "sub-table"  is  read  into  IBUF  and 
then  a call  is  made  to  BACSCA1  for  calculation  of  the  incremental  powers 
which  are  contributed  by  this  "line"  in  the  table.  Actually,  because 
of  the  "multi-valuedness"  of  the  f,  a,  e -*■  P,  G relationship  because  of 
multiple  landing  points,  each  record  in  IBUF  may  correspond  to  several 
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lines  in  the "sub-table" . 

As  noted  in  FILE  DESCRIPTION,  each  record  is  of  the  form  f,  a,  e, 
P^,  ...  P^  where  the  P^  contain  the  information  required  to  compute 
incremental  power  at  possibly  n landing  points  in  addition  to  group 
path  lengths  to  these  landing  points.  For  CAA  binning  group  path 
length  is  irrelevant  so  incremental  powers  are  summed  over  all  landing 
loints  and  put  into  the  appropriate  f,  a or  e bins.  For  CIA  or  All 
winning,  group  path  length  is  one  of  the  bins  so  the  summation  over 
.anding  points  is  not  done  prior  to  binning  - rather  the  binning  is 
lone  with  each  call  to  BACSCA1 . 

SPECIAL  CAUTION  AND  FEATURES 

1)  The  values  of  Fl,  Al,  El  should  be  set  to  integer  1,  2,  3 or 
a floating  point  number. 

2)  The  value  of  ISIZE  should  be  set  to  the  size  of  labeled  common 
area  /DATA/. 

TIMING 

Unknown,  but  CPU  time  should  be  small  since  calculations  are 
elementary.  Timing  is  probably  heavily  dependant  on  the  time  required 
to  execute  BACSCA1 . 

ERROR  MESSAGES 

The  following  fatal  error  messages  are  printed  through  subroutine 
MESSAGE.  A value  of  IFATAL  = 1 in  /MESSA/  is  also  returned  and  BIN 
returns  with  no  further  action: 

"BIN,  TOO  MANY  C-VARIABLF.S  (n)" 

(if  the  number  of  C-quantities  is  greater  than  1.  The  value  of  n 
gives  the  number  of  C-var iables  . ) 

"BIN  MODE  CII  NOT  PERMITTED" 

(if  the  illegal  CII  mode  is  used) 

"TOO  MANY  X-VAR IABLES" 

(if  2 or  more  of  the  parameters  Fl,  Al , El  are  set  to  2) 
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"TOO  MANY  Y-VARIABLES" 

(if  2 or  more  of  the  parameters  Fl,  Al,  El  are  set  to  3) 

"BIN  - NO  CONSTANT  MATCH" 

(if  no  match  between  the  constant  quantity  and  input  table  is 
found.  This  is  not  a fatal  error  since  BIN  continues  as 
described  in  USAGE.) 

"NO  TERMINAL  RECORD  IN  INPUT" 

(A  terminal  record  is  recognized  by  the  value  of  999*  for  the 
first  word.  If  this  record  can  not  be  found,  appropriate 
max.,  min-values  are  missing.) 

"BIN,  FATAL  ERROR,  NX  *NY  TOO  LARGE,  NX  = nx,  NY  = ny" 

(where  nx  and  ny  are  the  number  of  columns  and  rows  in  the  output 
matrix  in  /DATA/.  This  message  occurs  if  the  size  of  /DATA/,  as 
indicated  by  ISIZE,  is  not  large  enough  to  contain  the  output  of 
BIN. ) 

SUBROUTINES 

The  major  subroutine  required  by  BIN  is  BACSCA1  (see  PML  163)*  In 
addition  the  following  subroutines  are  required  (those  marked  with  * 
are  special  purpose  and  are  considered  to  be  part  of  BIN). 

ADDS  * 

EOFILE 

ERRORl 

ERR0R2 

IEOF 


ACCURACY 

Not  applicable 


COMMENTS  ON  USAGE 

Although  BIN  has  been  designed  for  an  express  purpose,  it  can  be 
used  in  more  general  situations  where  this  type  of  binning  is  to  be  done. 
Normally  BIN  is  followed  immediately  by  a "3-D"  display  program  such  as 
PR INTI  (PML  170)  or  CRTI  (PML  168). 
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FILE  DESCRIPTIONS 

BIN  uses  two  files.  One  is  the  main  input  file  or  "table"  as 
it  is  refered  to  in  the  text.  The  other  is  the  "sub-table"  produced 
by  BIN  which  selects  records  from  "table".  Both  of  these  files  are 
manipulated  using  Record  Manager  calls  and  need  not  be  declared  in  the 
main  program. 

The  files  are  sequential  with  fixed  length  w-type  records  (Fortran 
unformatted  file).  For  a complete  description  of  the  main  input  file 
structure  refer  to  subroutine  DEN  (PML  161) 


EXAMPLE  OF  USE 

PROGRAM  MAIN(OUTPUT, PRINT) 

COMMON/ FITAIN/FITAIN  (35) 

COMMON/ FITAOUT/FITAOUT  (35) 

COMMON/ INBUF/ INBUF  (514) 

COMMON/OUTBUF/OUTBUF  (514) 

COMMON/MESSA/ IFATAL,MESSA  (20) 

COMMON/ IBUF/ IBUF  (100) 

COMMON/ DATA/ DATA  ( 6000 ) 

COMMON/SYSTEM/ANTENNA  ( 10 ),  RECEIVE  (10),  TRANS  (10) 

DATA  (ANTENNA  = 1.,  1.),  (RECEIVE  = 200.,  .5),  (TRANS  = 50 . , 1.) 

CALL  BIN(5.75,  2,  1,  5LFLUXT,  6000) 

CALL  PRINT1(100.,  1.,  41,  2) 

END 

In  this  example  FLUXT  is  assumed  to  have  been  created  (by  DEN,  for  example). 
It  is  an  example  of  CIA  operation  with  frequency  the  C-quantity,  azimuth 
the  A-quantity  and  elevation  the  I quantity. 
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NAME: 
CATEGORY: 
TITLE : 
LANGUAGE : 
PROGRAMMER: 
DATE: 


PRINT1 : revision  0,  subroutine,  PML  170 
General  purpose  display 

Printer  display  of  a function  of  two  variables 
CDC  Extended  Fortran 

T.B.  Barrett,  Parke  Mathematical  Laboratories,  Inc. 
May  I976 


DESCRIPTION 

PRINTl  is  basically  a simulator  (on  the  line  printer)  for  CRT 
intensity  plots  as  produced  by  subroutine  CRTl  (see  PML  168).  It 
may  be  used  to  display  a general  function  of  two  variables  which 
has  been  stored  in  suitable  "matrix"  form.  As  for  CRTl,  there  are 
several  modes  of  operation  which  permit  various  function  normalizations. 
Two  displays  are  produced;  the  first  is  an  "intensity"  display 
wherein  function  values  are  represented  by  symbols;  the  second 
displays  the  function  as  numbers  in  floating  point  notation. 

USAGE 

Subrcut ine  PRINTl ( DB , GAIN, NLEV , MODE ) 

Input  parameters 

Parameter  type  is  shown  in  parentheses;  refer  to  notes 
indicated  by  asterisks  for  details.  Default  values,  if  any, 
are  indicated  by  brackets.  (A  default  value  is  substituted 
for  a given  value  of  0.) 

DB  (floating  point)  [20.]  intensity  display  "dynamic  *1 

range".  It  functions  in  various  ways  according  to 
MODE. 

GAIN  (floating  point)  [I,]  intensity  display  "gain".  *1 

DB  and  GAIN  interact  as  indicated  in  the  notes  to 
produce  different  display  effects  according  to  MODE 
of  operation. 

NLEV  (integer)  [41]  is  the  number  of  "intensity"  levels  to  *2 

be  used  in  the  display.  The  maximum  at  present  is  41. 
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.ODE 


(integer)  (mode  of  operation) 

0 no  special  normalization,  DB  and  GAIN  are  used 
in  the  "standard"  manner. 

1 GAIN  is  interpreted  as  the  maximum  intensity  to  be 
plotted;  the  minimum  intensity  to  be  plotted  is 

DB  db  below  this  value. 

2 GAIN  has  no  function.  Each  column  to  be  plotted  is 
normalized  (divided)  by  the  maximum  function  value  for 
that  column.  Intensity  levels  are  adjusted  in  equal 
steps  to  DB  db  below  the  maximum. 

3 same  as  for  MODE  = 2 except  substitute  "row"  for 
"column" . 


notes 

*1  In  the  "standard"  mode  (MODE  = 0)  of  operation  the  functional 
value  to  be  displayed  is  represented  by  a printed 
symbol  which  is  the  same  for  all  values  within  a given 
"contour"  interval.  These  intervals,  I.,  are  defined  by  DB, 
GAIN  and  NLEV  by 


I.  = I . + 

1 rain 

where 


(1-1) 


I . 
min 


I 

max 


. -fg... . 

K • GAIN 

£g  * ^ 
GAIN 


A I ; i = 1 to  NLEV 


; A I 


max  min 
NLEV - 1 


fg  = geometric  mean  of  the  function  f (assumed  positive) 
K = "contrast"  = lODB/2° 


For  MODE  = 1 operation  I = GAIN  and 

max 

I . = I /K 

mm  max 

For  MODE  =2,3  operation,  the  levels  are  determined  according  to 

. , 10(DB/20)(i-NLEV)  . 

i max  ’ 

where 

I = f(c  or  r max)  (column  or  row  max  of  the  function  f) 
max  ' ' ' ' 
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*2  There  are  at  present  41  distinctive  symbols  available. 

If  a function  value  falls  below  I . , it  is  not  plotted 

min' 

(i.e.  is  represented  by  "blank").  If  a function  value  falls 

at  or  above  Imax  an< 1 NLEV  is  41,  it  is  represented  by 

Note  that  if  NLEV  is  less  than  41,  function  values  which 

fall  on  or  above  I are  represented  by  a symbol  other  than-#", 
max 

The  intensity  symbols  in  ascending  order  are: 
blank  • - + 0 -"“9  A— -Z 
Labeled  common  input 

Labeled  common  area  /DATA/  contains  the  function  values 
(z-value)  to  be  plotted  as  well  as  values  which  indicate  the 
corresponding  values  of  x,  y.  Thus  the  function,  f,  should  be 
stored  in  /DATA/  in  the  sequence: 

/DATA/xQ,  Ax,nx,yQ,  Ay,ny,  f(xQ,y0),  f(xQ+Ax,y0), 

...  f(x0+(nx-l)Ax,y0),  f(xQ,y0+ Ay),  f(xQ+(n*-l)  Ax,yQ+  Ay)  , 

f (x0+(nx*l ) Ax,  yQ+(n  "1 ) Ay) 

Note  that  the  "symbol"  which  represents  f(x,y)  has  local  origin 
at  relative  location  x,y  in  the  print  frame. 

Title  (in  Hollerith)  for  the  print  are  contained  in  common  area 
/TITLES/  as  follows: 

ID(4)  4 words  of  print  identification  which  are  printed 

at  upper  left  in  frame. 

TITLE (6)  additional  identification  printed  beneath  ID. 

XTITLE(6)  x-axis  title. 

YTITLE(6)  y-axis  title. 

PTITLE(6)  "parameter"  information  printed  below  TITLE. 

Following  this  Hollerith  information  the  integer  length  (number 
of  characters)  of  the  titles  should  be  included  in  the  order 
NTC,NXC,NYC,NPC. 

STORAGE  REQUIRED 

The  amount  of  storage  required  by  PRINTl,  but  not  including 
common  storage  areas  is  14630  (8l9^Q). 
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ALGORITHM 

Two  arrays  are  used  for  each  print  line.  Array  TARRAY  is  used 
to  hold  a letter  of  the  y-axis  title  (if  necessary),  possibly  a 
letter  of  scaling  information  and  a numerical  scale  value.  Array 
PARRAY  is  used  to  contain  the  various  intensity  symbols. 

The  x and  y axis  numerical  scale  values  are  scaled  so  that  the 
arithmetic  mean  of  these  values  is  in  the  form  + xx.xx  using  subroutine 
SCALP . 

PRINTl  makes  two  passes  through  the  print  out  loop.  In  the  first 
pass  intensity  values  are  represented  by  symbols  and  on  the  second 
pass  by  actual  numerical  values . 

SPECIAL  CAUTION  AND  FEATURES 

Note  that  XMIN,  DELX,YMIN  and  DELY  are  used  to  determine  scale 
values.  These  numbers  should  be  chosen  so  that  the  scale  numbers 
can  be  adequately  represented  in  the  form  shown  above,  (in  other 
words  don't  use  too  many  digits.)  (XMIN  = xQ,  DELX  = ^ x,  etc.) 

TIMING 

None  available.  In  any  case  should  be  quite  small. 

ERROR  MESSAGES 
None 

SUBROUTINES 

FCONTR 

SCALF 

ACCURACY 

Not  applicable 
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COMMENTS  ON  USAGE 

PRINTl  can  profitably  be  used  as  a simulator  for  CRT1  (see 
PML  168).  In  addition  it  has  the  value  of  being  able  to  print  out 
actual  numerical  function  values  which  CRTl  can  not  do. 


FILE  DESCRIPTIONS 

Formatted  file  PRINT  contains  the  output  of  PRINTl.  The  file 
should  be  rewound  and  copied  to  OUTPUT  after  PRINTl  has  executed. 


EXAMPLE  OF  USE 

The  following  example  assumes  that  subroutine  BIN  (see  PML  169) 
is  used  to  generate  the  function  to  be  displayed  thus  some  of  the 
common  declarations  are  made  for  this  subroutine. 

PROGRAM  MAIN  (OUTPUT, PRINT) 

common/fitain/fitain(35) 

COMMON/ INBUF/INBUF(5lU) 

C0MM0N/MESSA/IFATAL,MESSA(20) 

COMMON/ IBUF/IBUF( 100) 

common/data/data(6ooo ) 

COMM0N/SYSTEM/ANTENNA(10),  RECEIVE(IO),  TRANS(IO) 

DATA  ( ANTENNA=1 . , 1 . ) , ( RECEIVE =200 . , .5),  ( TRANS  =50 ., 10000 . ) 
CALL  BIN(5.00,2,1,5LFLUXT,6000) 

IF  (iFATAL.EQ.l)  GOTO  1000 
CALL  PRINTl (200.,  1.,  1+1,0) 

1000  STOP 
END 


An  example  of  the  "intensity"  display  output  by  PRINTl  is  shown 
in  Figure  1 . 
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